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Greetings! Summer is finally here again and I am starting to 
get caught up with the backlog of mail, articles, etc. from last 
winter. If you sent me something and haven't yet seen it in 
NORTHERN BYTES and think that I forgot about it - well, you may 
be right (I hate to say it, but I'm not the world's most organized 
person!). Please feel free to drop me a postcard and say "Whatever 

happened to the article I sent you on ?" If I have it, I'll dig it 

out of the pile and try to get it into an upcoming issue, otherwise 
I'll drop you a card back and let you know that I never received it. 

It's not that I don't appreciate the articles you send, but this 
last winter was unreal. It wasn't just articles, of course, but there 
was plenty to keep me busy. At times I thought I was going to need 
a bigger mailbox! So, please forgive me if your article got lost in 
the shuffle, and please drop me a note if you sent something and 
haven't seen it yet, 

This issue is sort of a "catch up" issue, and contains many 
articles that I've had around for a while. Because it is being 
prepared shortly after the previous issue, some of our regular 
features are shorter than usual or absent altogether. Hopefully 
these features will return next issue. 

I mentioned last issue that we were looking at the idea of 
putting a BBS type operation for TRS-80 users on a packet network. 
We've examined various options but haven't found anything we could 
offer at a super good price. So, if you were hoping this would come 
to pass, please drop me a line immediately. Unless I hear from 
several people, I won't go any further with this idea. If I do hear 
from a number of readers, I will send you a mailing describing the 
options we have, and let you have some input as to which system we 
go online with. 

The future of NORTHERN BYTES is very much in question. As 
have mentioned, we're trying one last publicity fling by running a 
classified ad in Computer Shopper . Unless I get quite a few 
responses, the next issue may be the last. If you want to see 
NORTHERN BYTES continue, get your TRS-80-owning friends that 
have a VISA or Mastercard to send in their card numbers. 
Remember, this is safe - we do not bill your account until we have 
actually mailed your copy of NORTHERN BYTES. The cost is S2.00 
per issue ($3.00 if you live outside North America and want airmail 
delivery - you must specify that you want airmail, otherwise we 
assume surface mail is okay). We will continue to mail you each new 
issue (and bill your credit card) until you tell us not to, your card 
expires, or we quit publishing, whichever comes first. 

I made a couple of statements last issue that could have been 
a bit misleading in regard to our circulation. So, here's the straight 
story! We print about 1500 copies of each issue of NORTHERN 
BYTES, and eventually these are all distributed. However, we have 
an actual mailing list of about 350. Of those, somewhere between 
50 and 100 are folks who have sent us their card numbers as 
mentioned above, The rest of the 350 are clubs and user groups, 
folks who have issues coming because they contributed an article or 
because they were subscribers to Ooinion-80 (only a few of those 
left!), and a few others who get copies for various reasons. The 
remainder of the 1500 are issues sent free with orders from The 
Alternate Source, and issues purchased from TAS. Now, as you can 
see, that means that there are probably about half a million TRS-80 
owners out there that don't even know we exist, so tell somebody. 
We really need at least 2,000 paid (credit card) readers to be able to 
continue. This would allow the editor to make some money (which 
would be a brand new experience!) plus it would allow us to 
eventually get some better equipment (including a Near-Letter 
Quality printer, which we sorely need). 

Note that if we do get two or three thousand credit card 
"■subscribers, we will consider that a mandate and will start taking 
eal "subscriptions". Until then, the credit card method is the only 
way we have to assure you of getting each new issue as it is 
published. So, the question arises, what do you do if you don't have 
a credit card? Well, Charley Butler at The Alternate Source (see 
their ad at the back of this newsletter for their address) has 
indicated some willingness to consider sending issues on an "open 
account" type basis. In other words, he sends you an issue, you 



send him *2.00. If you don't send the S2.00, you don't get the next 
issue. This is a lot of hassle and we'd prefer not to use this 
method, but if you don't have a credit card drop Charley a line and 
maybe he'll do it for you on an individual basis. 

Occasionally someone will send, say, 46.00 and say "Please 
send the next three issues." What sometimes happens then 
(depending on who is processing the mail and which address the 
order is sent to) is that we keep the money and put that person on 
the mailing list for the three issues, BUT we do not keep any record 
that money was sent (it appears in our records as if you were an 
Opinion-80 subscriber with three issues of subscription fulfillment 
remaining). So, in effect, that person is gambling that we will 
publish three more issues. If we were to discontinue publication, 
we would NOT be able to issue a refund since we would have no 
record that money was sent (and besides, the money would probably 
have already been spent!). That is why we keep saying that we do 
NOT take subscriptions. If you have sent money this way in the 
past, you are hereby advised that you have been playing "Northern 
Bytes Roulette" and may want to consider switching to the credit 
card method. 

By the way, when ordering copies of Northern Bytes (current 
or back issues), do not make checks out to "Northern Bytes!" As far 
as the banks are concerned, we don't exist, so it's an added hassle 
if you make a check out to us. If you're ordering from The Alternate 
Source, make the check out to them, not to NORTHERN BYTES. 

These opening paragraphs are usually my reflections on 
various things, and in many cases serve as a letter to all of you 
since I don't have the time to answer all my mail personally. If you 
have a question of general interest to Northern Bytes readers that 
you'd like to see me discuss here, why not drop me a postcard? I'm 
open to ideas. In the meantime, I hope all of you have a nice 
summer. I plan to stay away from my computer as much as possible 
this summer, so if you call me and I say "What's a TRS-80?", you'll 
know I've been out in the sun too long. Don't worry, summers aren't 
that long up here - I'll get back to reality sooner or later! 



NEWDOS/80 TIME/DA' 



en 



In Northern Bytes Volume 5 Number 4 there is a patch for the 
date. Instead of the MM/DD/YY format you can use the 
DD/MM/YY format. This patch fails if the time jumps from 23!5?!59 
to 00:00:00. If that happens, the month will be incremented instead 
of the day. 

As you probably know, the date you input will be checked 
(month<13, day<32 and year<99). This is done by comparing with 
control bytes. The patch mentioned above only disregards the 
check. A better way is to change the control bytes, so the check can 
still be done. 

The problem can be solved so that the day will be incremented 
instead of the month, as follows! 

The time and date values in memory are in the sequence! 
seconds, minutes, hours, years, days and months. When the time is 
updated that sequence is followed. If the time becomes 00!00i00 
then the day will be incremented, So the program jumps over the 
years. We now have changed places (day and month), so there should 
be an extra jump. It will cost you only one byte, but there is no 
room left in the program. So, I have searched and found a few free 
bytes. The bytes can be found at 4CFC. Before you install this 
patch you had better check to make sure that space is not used by an 
earlier patch. If it is, then look for other free space. 

The patch now is! 

SYS0/SYS, sector 01, byte D5! 23 34 C9 becomes C3 FC 4C 
(instead of incrementing the month, you will jump to 4CFC) 

SYS0/SYS, sector 10, byte 0D! 00 00 00 00 becomes 23 23 34 C9 
(the day is incremented and then a jump back) ^S^_k. 

2227 r 



STSO/STS, Meter 13, byte 88! 4D 4D becomes 44 44 
STSO/STS, Meter 13, byte 8B! 44 44 becomes 4D 4D 
(Text "MM/DD" becomes "DD/MM") 

STSO/STS, sector 13, byte BA! OC becomes IF 
STSO/STS, sector 13, byte BC! IF becomes OC 
(Control bytes are exchanged) 



LETTERS DEPARTMENT 
Reminder: Persons sending letters intended for publication 
should send them on magnetic media or via MCI Mail (especially if 
longer than a couple of paragraphs). If you are NOT using Allwrite 
(or Newscript) and your word processor offers the option to save 
your file in ASCII format, please do so (especially if using 
SuperScripsit!). Tour cooperation in this matter will help us to 
bring you a bitter newsletter! 

Dear Jack, 

I've been meaning to write for some time and tell you how 
much I appreciate receiving Northern Bytes. Volume 6, Number 1 
arrived today, and I'd like to thank you for the kind words about my 
80 Micro article. 

I also thought I might contribute something to the fray — both 
an opinion and some information. 

First, the opinion: Tou said in an answer to Tim Smith's 
letter, "I don't use TRSDOS 6 any more than I can possibly help it." 
That's too bad, because I think that TRSDOS 6, and especially 
version 6.2, is without a doubt the best operating system available 
on any 2-80 system today (and also far better than PC/MS-DOS, but 
that's another story). If you or any readers don't have version 6.2, 
RUN, don't walk, to your local RSCC and demand a copy including the 
new documentation. 

Some support for the opinion: first, I have used every DOS 
that I know of for the Models I/m/4 except TRSDOS 2.7 and an 
extinct thing called DoubleDOS. I have found no system that is 
easier to program in, that will do more at a user level, that has as 
much flexibility and power, as TRSDOS 6.2. 

Now before every grabs a poisoned pen to argue vehemently 
against my praise of TRSDOS 6.2, please realize that I am talking 
about the DOS, not BASIC, though with the Alternate Basic as well 
as LSI's BEEP or Micro-System's 6.x PLUS, I prefer 6.2 for BASIC 
programming as well. 

Also, please realize that this comes from someone who was a 
dyed-in-the-wool NEWDOS 80 fan for a long time. Apparat is still 
the only company that has realized (on a TRS-80) that files can be 
longer than a sector, and that there arc other possibilities than 
sequential and "random" access. But Apparat never figured out 
device independence nor a decent method for programmers to 
communicate with DOS routines, and their BASIC overlay system is 
just short of Byzantine. 

Anyway, if you decide to print my opinion of TRSDOS 6.2, 
please ask folks not to write me to argue. I get too much mail as it 
is, anyway. 

Now for the information. Tim Smith asked for an explanation 
of the TRSDOS device commands: SET, ROUTE, LDIK, and Fn.TER. 
These commands are more clearly presented in the new 6.2 
documentation, but still could use some further explanation. My 
description will be from both a system and a user's point of view, 
since T've always believed that understanding how something works 
is the best way to getting the most out of a system. 

The first concept is that absolutely all byte (or character) I/O 
is completely device-independent under 6.2. The keyboard, the 
screen, printer port, the RS-232 port, disk files (if you wish — they 
can also be set up for record I/O), and anything else you can think 
of are completely independent, The structure of the DOS is such 
that each device sends and receives bytes in a standard way with 
standard register configurations. 

The importance of that independence is that no device needs 
to know what other device it is talking to. Want to type directly to 
a file? No problem. Want to send printer output to your modem? 
No problem. Want the input from a plotter to go directly to disk 
file in Memdisk? Again, no problem. 

Now to handle all this there are two closely-related data 
structures! the device control block (DCB) and file control block 
(PCB). Each is 8 bytes long, and the only difference between the 
two is a single bit. Any DCB can be set to allow calls for input, 
output, and/or control sequences. Each DCB is known to the system 
(and to the user) by a two-character name (which is preceded by an 
asterisk when TRSDOS and a user talk about them). 



Since only a device can be concerned with byte I/O according 
to the rules of TRSDOS, anytime we want to create a filter or a new 
device driver, it first must be associated with a device name. The 
SET command establishes a new device name in the t able of DCBs, 
and links that device to a /FLT or /DVR program (which are nothing 
more than /CMD files with a few extra bytes of initialization). 

After the DCB has been established and the program movev 
either to the low-memory driver area or to protected high memory, 
it must still be attached somehow to the rest of the system. That's 
where ROUTE, UNK, FnTER and RESET come in. By changing a 
few bits in each affected DCB, they redirect the flow of byte I/O 
(and control) requests. 

ROUTE simply redirects all I/O from one device to another 
device. For example, ROUTE *PR »DO sends all printer requests to 
the scr een. The connection stays in place until the first device is 
RESET. 

LINK sends I/O directed to the first device to the second one 
as well. Again, an example! LINK »DO »DU will send everything 
that would normally go to the screen to device »DU (whatever that 
has been SET to) as well. 

FILTER is very much like ROUTE — everything that would 
normally go to the first device is sent to the second instead — 
except that the system inserts the second device into the I/O path 
ahead of the first device, and expects that new device to 
communicate with the second (there are fundamental differences 
here for a programmer, not a user). 

What's interesting about all of this is that no device needs to 
know ahead of time what other device it is being substituted for or 
what type of I/O path it is filtering. For example, it is quite easy 
to set SET «CF CLICK/FLT and then filter the keyboard, the 
printer, the display, or the RS-232 port with CLICK. Why would 
anyone want to? Well, I've filtered RS-232 input with CLICK when 
I was waiting for someone to show up in a CompuServe conference 
area. As soon as that person does show up, the computer starts 
clicking and I can return from whatever else I'm doing to talk to 
them (I usually stop for a second to RESET the RS-232 line first). 

There is so much power in these device commands, however, 
that one must exercise some caution using them. It is quite 
possible (and very frustrating) to set up a complex series of 
ROUTES, IJNKs, and FILTERS that wind up as an infinite loop. 
That's what the DEVICE command is for! it gives a concis 
description of what everything is doing. Also, note that all these 
commands are available from BASIC with the STSTEM command. In 
several programs, I've included a prompt that asks a user if a 
report should be sent to the display or printer. If the user wants a 
printed report, I simply LINK the display and printer in a single 
command (or ROUTE the display to the printer) instead of having to 
hassle writing both PRINT and LPRINT statements. Another 
solution would be to "OPEN* a buffer to device instead of a disk 
file, and then use PRINT* to send data to that device. 

Three other comments about TRSDOS, and what folks will see 
soon in Micro 80. In my May column, I show how to redesign the 
user interface. It is easy to add commands, change the way a user 
sees the system, filter out entire commands, etc. In other words, 
TRSDOS 6 supports extensive use of shells, and it's a shame that 
no one has created an extensive series of user shells, 

Second, the Model 4 can do windows. In my upcoming Tune, 
July, and August columns, I demonstrate a complete window- 
handler, that allows up to fifteen overlapping windows of any size 
and restores both the previous screen display and cursor position 
when window is closed. 

I haven't figured out any practical method of mult-tasking on 
a Model 4 yet (after all, 64K of workspace and a 4 meg clock on a I- 
80 are somewhat restrictive), but then I haven't seen really useful 
multitasking on anything short of a 68000 chip or a VAX anyway. 

Last comment! some people have objected to pay to upgrade to 
6.2. How much did Apparat charge to change from NEWDOS 2.1 to 
80? From 80vl to 80v2? How much does IBM charge for any DOS at 
all? Are upgrades from PC/MS-DOS version 1 to version 2 free? 
How much did Apple users pay to update to PRO-DOS? (only useful 
with a hard disk, since pathnames on a 128K floppy are 
superfluous). The new documentation for 6.2 is worth the «20 that 
registered owners are asked to pay, and the DOS is much better and 
faster, though you must turn off SMOOTH if you want reliable type- 
ahead. 

Sorry this is so long. Tou certainly have my permission tc 
publish any, all, or none in Northern Bytes as you see fit. But give 
6.2 a serious try — I didn't like 6.0 at first, but I now avoid 
everything else as much as possible. 

Sincerely, 
Hardin Brothers 



[Just in case any of our readers are so out of touch with the 
TRS-80 world that they don't recognize the name, Hardin Brothers 
writes The Next Step column for 80-Micro (and has authored many 
other useful articles as well). Thanks for all the nice comments) 
Hardin, and well be looking forward to your window-handler series! 

By the way, my dislike of TRSDOS 6 is in many ways related to 
my dislike of LDOS (the father of TRSDOS 6), which I found was a 
■imply awful DOS to try and use on a Model I (that's my opinion, I 
know others would disagree)* But also it has to do with the 
Attitude of some (and I emphasiie some ) of the people at Logical 
Systems, Incorporated toward programmers. The attitude I'm 
referring to is this! "If you are a programmer and write a program 
and it doesn't work with LDOS, the fault is in your program (EVEN 
IF IT WORKS FINE UNDER EVERY OTHER DOS) because, after all, 
LDOS is the only "real" DOS for the TRS-80, You must rewrite your 
program to work with LDOS." 

Under TRSDOS 6 this attitude might be expressed as! "You 
must NOT directly interact with the DOS or the computer hardware 
(keyboard, video, printer) in any way other than by using the SVC 
calls we have provided. For example, if you have a program that 
requires the user to press a certain combination of keys and our 
keyboard driver does not decode that combination properly, you will 
change your program. You must not attempt to directly access the 
keyboard." Now I can understand that things like ROUTE, LINK, 
and FILTER won't work properly if you go around bypassing the 
Device Control Blocks. But in that case you should be able to use 
an alternate keyboard driver that will provide the needed key 
combinations, and should not be arbitrarily limited to the 
combinations that LSI thinks you should be able to use. 

I should point out that the portions of the above paragraphs 
within quotation marks are my interpretation of LSI's attitude 
toward programmers, and not a direct quotation by any LSI official. 
I base my interpretation on various writings in the LSI Journal and 
on conversations with some of the folks at LSI during an "industry 
get-together" in the summer of '83. 

Finally, I have noticed a tendency of both LD05 and the early 
versions of TRSDOS 6 to go into 'silent death" mode (locking up the 
computer rather than making a graceful exit to an error routine) 
under some circumstances, while this does not occur on other 
DOSes. This was a particular problem with Model I LDOS and one 
reason I finally decided to avoid using it. Perhaps my experiences 
were not typical, but after all those early frustrations it's pretty 
hard for me to be objective about the newer versions of TRSDOS 6, 
especially when I am quite satisfied with the DOS I'm now using. 
But isn't it nice that we all have a choice - just as you can buy a 
Chrysler, Ford, or General Motors automobile, you also have your 
choice of DOSes for the TRS-80, and that competition is probably 
the main reason that almost ALL of the TRS-80 DOSes are so much 
better than CP/M or PC/MS-DOS! 

I want to make it very clear that regardless of my personal 
opinion of LDOS/TRSDOS 6, I am still very happy to get 
submissions for NORTHERN BYTES from users of those DOSes! It 
may seem at times as though we are only supporting one or two 
DOSes, but that's only because the users of the other DOSes don't 
send us much. Believe me, I do NOT throw articles that have 
anything good to say about a DOS that I don't happen to prefer into 
the trash can!! 

Jack! 

Just a note to tell you how much I appreciate Northern Bytes. 
It is a super newsletter. I am sending the following code for the 
Model 4 BASIC because it saved my life once! 

On the Model 4 you may "protect" BASIC code by using the ,P 
option. If you ever need to look at that code, you are out of luck 
unless you unprotect your listing with the following! 

BASIC 1.1.0 SYSTEM "MEMORY <ADD=X'72CB',WORD='0000T 
BASIC 1.0.0 SYSTEM "MEMORY <ADD=X'6247',WORD='0000')" 

I can't take credit for locating this, I saw it on the L5I SIG on 
CompuServe. I have used it, and like I said, it saved me many hours 
after an oops. 

Keep up the good work. 

Sincerely, William C. Huffman 
2444 39th Court, New Port Richey, Florida 33552 
P.S. Question! How do you disable password protection and 
checking under TRSDOS 6? 

CThanks for the zap! I'm sure others will find it useful. As 
for your question about password protection, I thought maybe I had 
published that before, but can't seem to locate it if I did. Readers, 
can you help?] i 



Dear Jack! 

I found the control of stepping rate in the new Model 4 
TASMON very difficult to use. There was no 'smooth' transition 
from the high speeds (6 and 7) to the low range (which seemed to 
almost die!). I have patched my version as follows. I now have a 
smooth slowdown or speedup. 

Use the 'Find' command to locate 5F 3D 57 IB. Go BACK 
three bytes from the located address to see 3A nnnn (the 
disassembled instruction will be LD A,(nnnn). Now, use the Modify 
H command, starting at the address of the 3A to change TASMON as 
follows! 



CM 






Chance to 


3A 






16 


•> 






00 


? 






IE 


5F 






6C 


3D 






00 


57 






00 


IB 






<BREAK> 


This disassembles to! 


LD 


D,0 






LD 


E.6CH 






NOP 








NOP 








DEC 


DE 






etc. 







Change the 6CH byte to change the stepping rate if you don't 
like what you get with my preference. 

Best regards, Nate Salsbury 
610 Madam Moore's Lane, New Bern, North Carolina 28560 

[Nate says this patch should work with all Model 4 versions 
of TASMON. Thanks, Nate!] 



WHERE AM I ? 

by A.J. Hagers, Rotterdam, Holland 

Translated by Paul Fransen 

In some books the ROM code at the addresses 0BH and 0CH is 
'not used' and so it is not explained. But it is an interesting 
segment of code. In the LDOS manual it is documented under the 
system label ©WHERE. 

A CALL 0BH will give you in HL the address of the instruction 
following the CALL. It is the RET address of the CALL. So what? 
In the appendix of the TRSDOS 6.1 manual you will find an 
interesting example of its use (program F). 

Sometimes you might like relocatable code. But the Z-80 
instruction set does not have relative calls. With QWHERE it is 
possible to simulate a relative call. Here's an example of a relative 
call to a subroutine named SUBR! 





PUSH 


HL 


{save... 




PUSH 


BC 


(the... 




PUSH 


AF 


{registers 




CALL 


©WHERE 


! where we are (in HL) 




LD 


BC,9 


(number of bytes after the call 




ADD 


HL.BC 


{add HL * RET for relative call 




POP 


AF 


[restore... 




POP 


BC 


(registers 




EX 


(SP),HL 


(RET address to stack <HL*original value) 




JR 


SUBR 


Jjump to subroutine 




,♦» 




Ithis is where the return of SUBR 




... 




{will lead you to 


SUBR 


**. 




{start of routine 




RET 




{end of routine 


©WHERE 


POP 


HL 


{address 0BH 




JP 


(HL) 


{address 0CH 



This will cost you 15 bytes, but sometimes it will come in handy, A 
disadvantage is that relative data fields are not possible. You can 
solve that by using the IX register (and using an index to call the 
data). But if there is more than one call, then IX will not be a 
constant. 



Converting theGrandpa of TRS-80 text processors into a 

comfortable calculating text editor using T1BTTPOS OC version 2 

by Joachim Kelterbaum 

Frankenstr, 305, 4300 Essen 1, West Germany 

Though Scripsit is a very old word processing program, it still 
is quite useful, I mainly use it for writing short memos, program 
sources, ASCII- and JCL-files. Recently, a friend of mine asked me 
for help in his particular application of Scripsit. He processes 
texts containing quite a few calculations. As these texts do not 
have fixed formats, there is no way that Visicalc, etc. could be 
used. While editing the texts with a computer he still needs a 
pocket calculator to compute the results of calculations done in the 
text. Seems ridiculous, eh 7 

I thought of combining the computational capabilities of the 
BASIC ROM with Scripsit. There should also be a way to pass 
numbers to the calculating facility without retyping them. Some 
sort of user keys should be established to pass results back to the 
text. The routine and zaps supplied below do all this and more. 
First, a description of how to use this routine so you can figure out 
whether it's of any use to you! 

Function of the calculating Mode 
Directly after entering Scripsit by 

DO SPS <Enter> 
press 01. This will save the tab-line (second line from the bottom) 
in case you'll need it again for an orientation. It may be restored 
at any time by pressing (SO. 

The calculator mode makes use of the two bottom lines of the 
screen, These will be overwritten with the following text as soon 
as the calc-mode is entered: 



c: 

T! 



ACQ) = I USER KEY = I DEC. * 2 

m: i. id ai: i.id 



The fields of this command line have the following purposes! 

C! Command field. If you invoke a command from 

within calc-mode, it will be echoed here. 

v: Value-field to place a temporary constant which 

can be entered directly. 

ACCU * indicates that A0 is currently selected, You can 

also select Al. 

USER KEY » indicates that user key is currently selected. 
You have access to UK0...UK7. 

DEC, = 2 means that results of computations will be 

transferred with 2 places after the decimal point 
into the user key buffers. The values transferred 
will be rounded to 2 places. Calculations are 
performed with 4 places internally. You may 
select a transfer of 4 places here. 

TJ Temporary register. Each time you enter the calc- 

mode the value transferred from the text (right 
after the cursor) will be displayed here. If the 
text after the cursor does not contain a numerical 
value, T! will contain 0. 

A0! , Al! are the two accumulators you may select. Results 

of computations you have invoked are always 
displayed in the selected accum. After each 
calculation the result will also be transferred into 
the buffer of the selected user key. 

Invoking the calculator-mode 

GP will transfer the value directly after the cursor 

position in your text into the T! register. The 
command lines of the calc-mode will be displayed 
at the bottom of your screen (if not already there). 

QT acts just as above, but it will also move the 

contents of T! to the selected accum. 

@+ acts as (?P, but will also add the contents of T! to 

the selected accum. Analogous functions may be 
invoked by! @ - , @ • , @ / 
(You need not use the shift key for the selected 
function! i.e, Q! works just like 0+ ). 

You may invoke additional functions while being in the calc- 
mode. These will be discussed later. 



■fright arrow> performs a tab after leaving calc-mode. 

<left arrow> positions cursor to start of line after leaving. 

<down arrow> advances 1 line after leaving. 

<up arrow> (analogous). 

Placing results back i nto your document (user knyg) 
If you selected user key 3 (at some time in the calc model 
pressing 03 will write the result of the last calculation into your 
document at the cursor position. 

Caution: As many applications prefer alignment of decimal 
points, the results will be transferred backwards into the text (as 
you have a fixed number of places after the decimal point this will 
be quite handy if combined with tabbing), 

... If f selected other user keys previously, the contents of 
their buffers remain unchanged and may be recalled at any time. If 
you recall a user key that has not been defined yet, nothing will 
happen. You may call (JO.,,07. 



Ax 

Ux 

T 



Commands in calculator mode 
selects accumulator Ax x = 0...1 

selects user key x x = 0...7 

transfer contents of T! register into selected 
accumulator 

+ t - t * i / selected accum != selected accum + - • / T! register 

I Input value into intermediate value register V! 

Terminate input by <CEnter> 
V transfer V! register to T! register 

transfer A0! to T! 

1 transfer Ali to T! 
■ copies A0! to Al! 

R rounds selected accum to 2 places after decimal 

point. 

2 Results of calculations will be transferred into the 
selected user key with 2 places after decimal 
point. 

4 same as above, but transfers 4 decimal places. 

Actually, it's more complicated to describe the actions than 
using them. If you combine the above facilities with defining your 
own tabs, you'll soon feel comfortable with them. 

One hint! For a reason I can't explain, you must not use @T as ._ 
your first invocation of calc-mode. Use (?P instead. The prograr 
will get stuck if you do (JT as your first action. I have nov 
encountered any other bugs so far. 

Well, how does all this work? 

As I mentioned above, I used the calculating facilities of the 
BASIC interpreter in the ROM. This has the great advantage of not 
eating up too much RAM for the additional code needed. It has 
another disadvantage, though, that at first caused some headaches! 
Scripsit uses its own stack right in a memory region where BASIC 
performs some of its vital functions! i.e. 41FCH and below. 

First, I had to move the stack out of this area. Another minor 
problem was the honoring of HIMEM so I could protect my additional 
code. This was taken care of by Zap 003 supplied by Apparat. 
Another point was the interception of the @-key to get hands on the 
invocation of the additional functions. Then, the screen driver had 
to be intercepted, so I could process the user keys. I disabled the 
initialization of the tab-line, so I could enter Scripsit with a 
predefined tab-line. One routine kept clearing the bottom line each 
time a character was entered. This was uncomfortable, so I 
disabled it. There still are occasions where the calc-mode command 
lines are overwritten (for example when moving to the top of text 
with shift-up arrow or when entering commands via <break». These 
disturbances are rare, though. You can always restore the calc- 
mode command lines by entering this mode. Finally, BASIC had to 
fix up its pointers properly in order to work correctly. That was an 
easy one! I started the program with a ATCL file (see below). 

Now let's oet into detail 

Below you find a list of all the Zaps needed to link Scripsit to 
the calc-mode driver. 

Format an empty diskette. 

Copy a version of the original SCRTPSIT/I.C (version 1,0) to 
SCRIPSIT/BAK on that disk (use this name!). 

Apply the following Zaps to SCRIPSIT/BAK. These Zaps - 
contain ZAP 003 supplied by Apparat (don't panic, if those are 
applied already). 



Leaving the calculator-mode 
<Space> will leave the calc-mode and leaves the cursor 

position unchanged, You may go on processing 
your text. A 




F RS ral.BMte old new Consent 

i)0 64 21 2A ZAP 003 

FF 49 

00 40 

25 00 

7E 00 

2F 00 

77 00 

AE 00 

20 00 

F9 00 



00 



B8 



cd oa 

ID 00 
69 00 



DON'T CLEAR TAB LINE 



00„ 



C4 



F3 00 



ZAP 003 



00 D5 41 FF RELOCATE STACK 

01 31 11 FF RELOCATE STACK 



07 02 

■EBXBIESSR 

11 77 



1\ FF REL. STACK 

BBOBBIBHSattSIIIIEBRII 

CD 3A ZAP 003 

AE B9 

7A_7C 



11 



12 



FC 



00 



C4 32 

EF B6 

5D 7C 

79 C4 

SEE3$SS1 

32 EF 

B9 5D 

7C 00 



ZAP 003 



ZAP 003 



12 
14 



65 
9D 

7D 



11 FF 



REL. STACK 



21 C3 

36 03 

40 FA 

3A C3 

01 00 

38 FA 



INTERCEPT USER KEY- 
REQUEST 



KEYBOARD INTERCEPT 9 



zmmnmxmm 



17 
19 



54 
E5 



41 FF 



26 
2B 



55 



00 20 
00 40 

sssszxae 

E5 C9 
41 FF 



CF 

si = = «*« = sac :a:==«s= assassi 

30 EF 41 FF 



REL. STACK 
EXIT-ZAP 



DISABLE CLEAR CMD-LINE SBR, 
REL. STACK 



40 



E7 



41 FF 



REL. STACK 

IBBHSXESES1 

REL. STACK 



Part 2 of the preparations is easy! Write a /JCL file 
SPS/JCL with the following contents! 

BASIC 
CMD"S 
SPSMOD 

The last part of the necessary modifications is just a little 
harder! Enter the program at the end of this article into your 
EDTASM and save the compiled code as SPSMOD/CMD. 

Now you're all set. If you didn't make any mistakes, you 
invoke your brand new 'old Soripsit' by 

DO SPS <Enter> 

If you don't have the patience of entering all this stuff into 
your computer, ask Jack, if hell put it into one of the public domain 
disks to come out. 

[Will do, as soon as I can find enough spare time to put 
nother PD disk together! -Jack! 

Kin ;— — 

inn ; 

11121 ', SPSHOD/SRC 

11131 ; 

(MO (a Driver Progra* to add calculator-node capability 



• to SOOPSrTAC 

f 

', WR 1.2 (4-0-W85 

, 

[by Joachifi Kelterbaun, Frankenstr. 315, 1311 Essen 1 

; H, Cernarrd 

J 

[Connents in this source cod* rather refer to logical 

(segments than to each single statemnt. Please, refer 

!to Jack Decker's 'TTS8I Ron Routines Dacunented' for a 

(detailed explanation of the ROM-calls referenced here 

[(That bonk is well north it's weight in gold)! 



7EB3 

7EB3 1111 
7EB5 1111 
7EB7 1111 
7EB9 llll 
7EBB llll 
7EB0 HOI 
7EBF tOOl 
7EC1 llll 
7EC3 llll 
7EC5 lltl 
7EC7 1110 
7EC9 1100 
7ECB 1600 
7ECD Mil 
7ECF IKK 
7ED1 llll 



5211 

5211 Z1AAF6 

5213 28 
52(1 1681 
5216 3EI6 
5208 77 
5219 23 
52§A 1IFC 
52K 21IIF6 
52IF2B 
5210 224910 

5213 211952 
5216C3I5H 
5219 53 

13 52 19 
5225 ID 



F6O0 

Fill 

F400 C30AF6 

F403C3EAF7 



FdM3M138 



F409 E401 
F60B7A 
F40C 2013 
F4(E C3A741 

Fill FE5I " 

F413 2869 

F415FE51 

F417 2845 

F419FE2B 

F61BZ861 

F41DFE3B 

F41F285D 

F421 FEZD 

F423 2859 

F625FE2A 

F427 2855 

F629FE3A 

F62B2851 



11151 

10140 
11170 
•1181 
11191 
II2II 
11211 
11221 
11231 
•0210 
•1251 
•1261 
•1270 ; 

••280 ; 

(1290 ; 

••311 ORG 

((311 TABTBL OEFH 

11320 DEFH 

••331 DEFH 

•1310 DEFH 

•1351 DEFH 

•1361 DEFH 

11370 DEFH 

11380 DEFH 

•1390 DEFH 

•0100 DEFH 

00110 DEFH 

00121 DEFH 

•1130 DEFH 

•OHO DEFH 

•0150 DEFH 

11161 DEFH 

•0170 ( 

IM80 ; 

W90 ORG 

10500 STMT LD 

•1510 

(1520 

10530 

•0510 MLT 

•0550 



10560 
00570 
•0580 
•0590 

imoo ; 

•1611 
•0620 
•1630 TX 

50 53 19 51 2F 12 11 



DEC 

LD 

LD 

LD 

DC 

DJC 

LD 

DEC 

LD 

LD 
JP 

DEFH 



••610 

11650 ; 

••660 ; 
M67I 

(1680 SCRKX 

••491 KBDINT 

10711 UKREQ 

•0711 ; 
(1721 ; 

•1731 KEDI 

•1710 

10751 

•1761 

10771 

•1781 

•1791 

10811 ; 

II810 HTX 

M820 

11830 

•1811 

11858 

11841 

((871 

1(881 

M89I 

11910 

1(911 

((920 

((931 

((911 



DEFB 



ORG 
EQU 
JP 

JP 



LD 



MO 
LD 
JR 
JP 

CP 
JR 
CP 
J) 
CP 
JR 
CP 
JR 
CP 
JR 
CP 
JR 
CP 
J) 



7EB3H (Initialization of a predefined 

I1I1H (Tab-Line in Scripsit 

(1I1H 

•ltlH 

HUH 

(H 

IH 

(H 

(H 

(H 

(H 

(H 

(H 

(H 

•H 

•H 

IH 



(Initialize user key 
(buffer Hith O's 



(update HDBt value 
(plus into KDOt 
(start SCRJPSIT/BAK 



52((H 

HUBUFRT 

H. 

B.128 

A,( 

<HL>,A 

HL 

HLT 

HL,SCRH0D 

HL 

(1(19H),HL 

HL,TX 
HI5H 

'StRFSn/BAK' 
W 
(OH 



(F6MH 
♦ 

KBOI (link address KBDBfT in Scripsit 
UKRO ( " " UK-reguest " 
(see Zap-table) 

A,(3B(lH)(this instruction was overlapped 
(by JP KBDINT in Scripsit. It 
(will be executed here. 

1 (HZ = '8' was pressed 

A,D (get key pressed with '•', if so 

N2,HTX 

4147H (back to Scripsit, if no '■' key 

'?' (was it '*?' ? 

Z,CLOO) (if so, enter OCKX 

'T' ( tine as above 

r.aatx 

'+' 
Z.CLCMD 

zlaotx 
z,CLon> 

'I' 
Z.CLCKX 

Z.CLOfX 



ware* 


WW 


CP 


'/' 




F72A13 


tlTSI OfUN DBF", 


tl W ftXU-l UBpXY 


F42F 28D 


N94I 


Jt 


ZrCLCNOD 








- 1 DEC. * 2 


F431 FE* 


M77I 


CP 


'0' 




3A2I2I2I212I2I2I2I2I2I543A2I2I21 


F433 285I 


N98I 


Jt 


Z.RSTTT {restore tab-line 


21212121212121111313352130213121 


F435FE19 


M99I 


CP 


'I' 




212l555315S22l«4399Z<3D213t2l2l 


FA37 2842 


urn 


Jl 


Z.DCT 


{initialise tab-line 


21H15132E2I3D2132212IZ1212I2I 


F639FE3B 


urn 


CP 


3BH 


(else, if not l...7->MJTH6 


F7MM 


11741 


OEFH 


't: m: mi ai: 


F43B3M8 


11121 


Jt 


KJDTHC 








I.N 


F43DFEZF 


ma 


CP 


2FH 




3A2I 21 21 21 21 21 21 2121 21 2121 21 21 21 


F63F3BH 


•1MI 


Jt 


CtNDTHC 


*13l3A2l312E3t312l2t2t21Zt2l2t2l 


F411 D430 


msi 


OB 


3W 


{1.1.7 pressed 


2l2l11313A2t3t2E3t3t212l2l2l2l21 


F413 1813 


11141 


Jt 


DSPUSK 


{display thit our key 


2I2I2I2I2I2I2I2I2I2I212I212I21 


F445C31541 


11171 HOTHG 


J> 


4115H 


{->5cripsit,if none of the 


im 


11771 CUBAV OEFS 


«H {CURSOR LDC BUTTER 




lint ; 






above keys 




11781 { 






F418C5 


11191 OSFIEK 


PUSH 


BC 


{display user key routine 




•1791 { 






F419D5 


tun 


PUSH 


OE 


{save reg's 


F7EAF3 


118ft IMG 


PUSH 


AF {process user key call via tx 


F4UE5 


inn 


PUSH 


ft 




P7EB3AMF4 


11611 


LD 


A, (FLAG) 


F4« 010001 


11121 


IB 


BC,t 


{initialize BC 


F7EEFEII 


11821 


CP 


1 {is UK being invoked 


F4* FEM 


11131 


CP 


1 


{it it the termination dwr 1 ? 


F7FI 2837 


11831 


Jt 


Z.0UT {no -> OUT 


F45I Z8K 


I1HI 


Jt 


Z,MJLD 


[ ;*s -> mix 


F7F2 3A31F8 


11811 


LD 


A, (JPFLG) {backspaces processed 


FA52 17 


11151 


u> 


B,A 


{get 1 of user key to B 


F7F5FEII 


11851 


CP 


1 


F653 zuooi 


11141 


LD 


ft.l 


{add 14 to ft 1 tines 


r7r7ZBIF 


11861 


Jt 


ZrCHJOS {yes, display next char 


F456 1111(1 


11171 


LB 


0E.14 


{14 is the length of each user 


F7F9 X 


11871 


DC 


A {inc. backspace count 


F459 1? 


11181 ADRIX 


MO 


ft,DE 


{key buffer 


F7FAFEI3 


11881 


CP 


3 {is it 3 yet ? 


F4» 1IFD 


11191 


DJB 


Mxax 




F7FC21I2 


11891 


Jt 


tG.KLAR {no , backspace 


F65CE5 


I12ID 


PUSH 


m. 




F7FE3EII 


11911 


LD 


Ail {yes, reset count to I 


F45D CI 


11211 


POP 


BC 


{put result into BC 


FMI 323IF8 


•1911 KLAR 


LD 


(JfFLC),A{save count of backspaces 


FAS 21AAF6 


11221 MUX 


LD 


ft,BUFRT{calcul*te start address 


FW3F1 


11920 


PCf 


AF {perforn 


F461 19 


11231 


ADD 


ft.BC 


{of user key buffer 


FBM 3E9E 


•1930 


LD 


A,9EH {1 backspace 


F462 llllll 


•1241 


LD 


BC.14 


{search for 1 teraimtor 


FBI4 67 


11918 


OR 


A {siHulate! no key pressed 


F645 3EIB 


11250 


LD 


A,l 


{within this buffer 


F8I7C9 


11951 


RET 


{back to Scripsit 


F447ED81 


11241 


CPIR 








11941 { 






F64? 2B 


11271 


DEC 


ft 




F8N3C 


11971 CHRDS 


INC 


A {display next char of UK-buffer 


FA4A2B 


11281 


DEC 


ft 


{points to last char in UK-buf 


FB19 323»F8 


11981 


ID 


(JfFLG),A{inc backspace counter 


FAAB 22MF& 


11271 


LD 


(PTR),ft{-> PTR (key will be processed 


F8KF1 


11990 


POP 


AF 


F4iE 3EI1 


11310 


LD 


A,l 


{/backward*/ init. flag for 


F80OE5 


12100 


PUSH 


ft 


F670 3ZABF6 


•1311 


LD 


(FLAOtAfUser key not yet processed 


F8IE2AA4F4 


12011 


LD 


ft, (PTR) {get pointer to UK-char 


F473 3E1I 


11321 


LD 


A.1 


iinit. flag of 


F811 7E 


17120 


LD 


A,(ft) {put into A 


F475 323IF8 


11331 


LD 


(JfFLC),A{count for backspaces 


FB1Z FE2I 


•2130 


CP 


' ' {is it a space ? 


F478 El 


11311 


POP 


ft 




F81128IB 


12111 


Jt 


Z.0UT2 


F679D1 


•1351 


POP 


DE 


{restore reg's 


F814 FEII 


12150 


CP 


1 {or a 1 ? 


F67A CI 


11341 


POP 


BC 




F818 28I7 


12141 


Jt 


Z,0UT2 {then teminate 


F67BC36741 


11371 


JP 


4147H 


{back to Scripsit 


F81A2B 


12171 


DEC 


ft {wdate 




11381 ; 






Processing of the actual user 


F81B22A4F4 


12180 


LD 


(PTR),ft{pointer 




11391 ; 






key will be taken care of by 


FB1EE1 


12090 


POP 


ft 




mil ; 






the intercepted screen driver 


F81FB7 


12111 


OR 


A {clear flags 




urn ; 








F82I C9 


12111 


RET 


{return to Scripsit. Display 


F47E 18 


•1120 CLOU) 


EX 


AF,AF' 


{call to calc-moe! save A 




12120 ; 




char, in A 


F47F CD31F8 


11131 


CAUL 


CALCUP 


{call it 


F821 3EI1 


12130 OUTZ 


LD 


A.I {reset 


F682 C37941 


•1H0 


JP 


4179H 


{back to Scripsit 


F823 32A8F4 


12111 


LD 


(FLAG), A{f lag 




mst ; 








F824E1 


12150 


PCf 


ft 


F485E5 


11141 Rsm 


PUSH 


ft 


{restore tab-lint 


F8Z7 1811 


12141 


Jt 


OX 


F6B6D5 


11171 


PUSH 


K 


{it's a stole LDBt 




12171 ; 






F6B7C5 


11481 


PUSH 


BC 




F829F1 


12181 OUT 


POP 


AF 


FA8B21AAF7 


11191 


LD 


ft,CURSAV 


F82A 213411 


12191 OK 


LD 


ft,H34H{back to Scripsit with no 


F6BB 118I3F 


11511 


LD 


DEi3FBW 


F82DC3414I 


12201 


JP 


4I4W {key pressed 


F68E I11III 


11511 MBVEX 


LD 


BC,41 






12210 ; 






Ftfi Em 


11521 


LOB 






FBM II 


•2220 JHPFLC 


DEFB 


1 {counter for backspaces 


F693C1 


11531 


POP 


K 






12231 { 






F691D1 


11511 


PCP 


DE 






12211 { 






F495E1 


11551 


POP 


ft 






EZ5I ; 






F496 3EII 


11541 


LD 


M 


Itiiulatf ! no key pressed 


F831 


12241 CALCUP 


ECU 


I {calc-Subrautine 


F498 C36741 


11571 


JP 


4147H 


{back to Scripsit 


F831F5 


12271 SPZ 


PUSH 


AF 




11581 ; 








F832C5 


IZZ81 


PUSH 


BC {save reg's 


F49BE5 


11591 OCT 


PUSH 


ft 


{save tab-line 


FB33D5 


E29I 


PUSH 


DE 


F49C D5 


11411 


PUSH 


DE 


{sane as above 


F831E5 


12311 


PUSH 


ft 


F49DCS 


11411 


PUSH 


BC 




FB35D9 


12310 


EXX 


{get cursor- 


F49E 21Bt3F 


11421 


LD 


ft,3F8IH 


FB34 22ABFB 


12320 


LD 


(CADR),ft{address of Sciasit 


F6A1 11MF7 


11431 


LD 


DE.CURSAV 


FB39D9 


12330 


EXX 


{ (in ft') 


TttA 18E8 


11441 


Jt 


HOUEX 




F83ACDIFFB 


12310 


CALL 


UNPLUG {disable disk BASIC exits 




11451 ; 








F83DCDACFA 


12351 


CALL 


DSPBUF {display DC-line 




11441 i 








F81I CDAIFA 


12341 


CALL 


CLRQe {clear CMHwffer 


roA6 HnrO 


11471 m 


OEFH 


BUFRT 


{pointer to actual byte pro- 


F813 21C23F 


12371 


LD 


ft.TAD {clear T!-field 




11481 ; 






cessed by user key 


F814 14IF 


12380 


LD 


B,15 


F4A8 II 


11491 FIA6 


DEFB 


1 


{UK-processed flag 


FB18CDA5FA 


12391 


CALL 


CUT 


F6A9 II 


11711 


DEFB 


1 


{safety IX buffer dtliniter 


FTHBZAABFB 


12111 


LD 


ft,(CADR){point to char 


F4AA 


11711 6UFRT 


EBU 


1 




FB1E 23 


12110 


DC 


ft {behind cursor position 


1181 


11721 


OEF5 


128 


{USER KEY BUFFER 


FTHF 11C23F 


12121 


LD 


DE,TAD {and transfer nun. value in 




11731 ! 








FB52CDDIFA 


12131 


CALL 


TFTJt {Scripsit text into T! buffer 




I17U ; 








F855CD0DFA 

F85B N 


I2HI 
12*51 


CALL 
EX 


TWMt {edit value with 1 dec. placet 
AF.AF' 



F839FE5I 


BW 


CP 


38H Um it called ta «P ? 
Z.CETKY }<jet -> «rt eecM 00 




13271 { 






FB38 2812 


12171 


JR 


rmtan 


►3WTFACOI 


1 LD 


RUTfW m->»i. «» nhUm 


FBS1M3 


R« 


JR 


GETKA (elM( 


FV1BCDCVA 


13291 


cm 


BZSPL tdi»l« OD-UKt 


FSSF CM91I 


82191 CETKY 


CALL 


«H (celc-node OD*input loop 


temwn 


•3311 


LD 


8MACTACC) 


na fezb 


8Z3MGETKA 


CP 


'+' (aw it ff ? 


F921WF 


13311 


LD 


8,15 


fbhcaot 


82511 


JP 


Z.40DI tw->MBI 


P923CDA3FA 


13321 


cm 


CUT Mm «1. am 


F867FE3B 


12521 


1? 


'(' Vm it ti ? 


PI26 21CZ3F 


•3331 


LB 


H..TA5 


FB69CA3EF9 


12531 


JP 


Z.ADDI J m -> ADDI 


W2f EBBJ7VI 83311 


LB 


K,(«CTACC)ttrMfir TI to ttat 


F86CFE2D 


12911 


CP 


»-• » ... etc. 


FvantTN 


13351 


LD 


8C.15 laccu 


F86ECA61F9 


12551 


JP 


i,wm 


PfM QM 


83361 


IDS 




F871 FE2A 


tau 


GP 


'■• 


ffS I1H1I 


13371 


LB 


K4888WNUM far • «Mlt 


F873 CA6GF9 


12371 


JP 


Z.PU.TP 


mscoMM 


83381 


cm 


•W 


FB76FE3A 


I23M 


CP 


ft/ 

• 


F93ICB3FFB 


13391 


cm 


VKTFR Update ailaetod war kn 


FB7B CA6CF9 


12591 


JP 


Z.HJLTP 


MSI C33FFI 


nut 


JP 


CETKY Ttatk to input loop 


F87B FE21 


82611 


CP 


/I* 




•3111 t 






FH7DCABCFA 


12611 


JP 


him 


F93E2M3FC 


83121 MM 


LD 


htfAOB tacU to «1. aceu routim 


FBBI FE2F 


12621 


CP- 


'/• 


miCDCTA 


(3131 


cm 


DJBPL tdiflplaa OD-lint 


FBB2 CA77F9 


12631 


JP 


ZJHVP 


F9H3ECD 


83111 


LD 


A.80W tlcad '«' tokan to 


FB85 FEB 


12611 


CP 


n ww 


FV16 32BCFB 


83tnGon 


LD 


nOfM).A; (TOW) 


F887CA23FA 


12651 


JP 


Z.UPARR 


PPWCWCFI 


83161 


cm 


TRANS itrawfar epaianw -XP1,0P2 tU, 


FBBAFEM 


12661 


CP 


•AH 


mccsvp? 


83171 


JP 


0ML tawluato i>rmiii> 


FB8C CAZ7FA 


12671 


JP 


Z.DONARR 




83181 ; 






F8SFFEI9 


12681 


CP 


9 


F9ff Z178FB 


83191 EMM. 


LD 


HL,0P1 (aval. twr. text at 


F891CAZBFA 


12691 


JP 


Z.TABI 


F152 CD3723 


83511 


cm 


Z337H ^Pi+TTfDhOP2 


FBWFEB 


12711 


CP 


8 


FWB2A7« 


83511 


LD 


HMACTACCHdiaplas rawlt in 


F896 CAZFFA 


12711 


JP 


ZJMOMR 


F958 CDF7A 


•3321 


cm 


ACDSP (Ml. actu 


F899 FE2I 


12721 


CP 


(blank «*» tack to Scrinit 


F?9 CD3FF1 


83531 


cm 


IKTFR (update uaar kas 


FB9BCA1BFA 


12731 


JP 


Z,BA0C1 


FWE C39FFB 


B35H 


jp 


CETKT (bats, to input loop 


FB9E FE31 


12711 


CP 


'1' iMt Manual far detailed 




83551 } 






F8A0 CAFCF9 


12751 


JP 


ZjAClT (detcriptian of cowyndi 


P961 21«FC 


13561 SUBTK 


LD 


HLtSUBHEf analoajM to ADDI 


F8A3FE31 


12761 


CP 


'V 


FWKSCVA 


83571 


cm 


mSPL 


FBA5 CA1IFA 


12771 


JP 


Z,AC1T 


F967 3ECE 


83581 


LD 


A.8CEH 


F8ABFE32 


12781 


CP 


'2' 


FWC316F9 


83591 


JP 


aw 


F8AACA6CFA 


12791 


JP 


Z.ZMEt 




83611 i 






F8AD FE31 


I28tl 


CP 


'1' 


FV6C Z159FC 


83611 HUP 


LD 


ML.MK (aw atawt 


FBAFCA7EFA 


12811 


JP 


Z.WER 


F96FC0CTA 


83621 


cm 


DBPL 


F8B2E65F 


12821 


AW 


3FH 


F972 3ECF 


83631 


LD 


A.8CFH 


F8MFE11 


12831 


CP 


'A' 


F971C316F9 


83611 


JP 


SOON 


F886 CAF2F8 


12811 


JP 


Z.SLACC 




83651 ! 






F8B9FE51 


12851 


CP 


'T' 


F977 216*C 


83661 DIW 


LD 


HL.DIPB }m» atova 


FBBBCA18F9 


12861 


JP 


Z,TFA£OJ 


F97ACDHFA 


83671 


cm 


DDPL 


F8BE FES5 


12871 


CP 


'U' 


F97D 3EM 


83681 


LD 


A.8D8H 


FBC0CAB2F? 


12881 


JP 


Z.UKSEL 


F97FC316F9 


83691 


JP 


COON 


F8C3FE19 


12891 


CP 


'I' 




83711 I 






FBC5CAB3F9 


K9M 


JP 


ZJHW 


F98Z2MFFC 


83711 UXSEL 


LD 


HL.UOE (Mlart mar key routim 


F8C8 FE56 


12911 


CP 


'V 


F985 CDMFA 


83721 


cm 


DEPL jdiaplas CMHcxt 


FBCACAEIF9 


12921 


JP 


Z.KSTTF 


F9MCM911 


83731 


cm 


19H (input IK 8 


F8C0 FE52 


12931 


CP 


'R' 


FT8IDeV3t 


837H 


SUB 


38H 


FSCFCA3VA 


12911 


JP 


z,mio 


FWEM7 


83751 


AMD 


7 dMk S...7 


F8D2 C35FF8 


12951 


JP 


6ETKY (illegal Of) -> input loo? 


F99F fS 


83761 


PUSH 


AF 


F8D5CDAIFA 


12961 BACK 


CALL 


OROB (clear QO-touffer 


F991C631 


83771 


ADD 


nr9W 


FsoecnesFA 


12971 


CALL 


SAVBUF ;«w* OO-line 


F9V2 32AE3F 


837M 


LD 


OJKAD),A(dioplas wl. wlua in UBEK KEY 


F8DB3ASI38 


I29BIREPT 


LD 


At(3BB8H)(Mke thurcr no mrc 


rmrt 


83791 


POP 


AF (/fiald/ calculate ftart addrcn 


FSDE 211138 


12991 


U> 


HLi3811H!«hift or irraH kew ere 


fto uiiii 


83811 


LD 


BC»I (of wl. mar kn buffe 


F8E1 86 


I3III 


OR 


(HL) {prtcitd 


F»»f FEU 


83811 


CP 


8 ((taw • 8UFRF tMU) 


F8E2 ZIF7 


13110 


JP. 


(CREPT 


FV9B 28tC 


83821 


JR 


Z.MLL 


F8E1 I1III3 


13121 


LD 


BC,3I1H (debounce delay 


nnv 


83831 


LD 


B,A 


F8E7CD6III 


13131 


CALL 


68H 


F99E21IHI 


83811 


LD 


HL.I 


F8EAE1 


I3HI 


POP 


H 


FW1 111NI 


83851 


LD 


BE.16 


F8EBD1 


t3«5t 


POP 


IE (restore reg/t 


F9A1W 


83BMMRIT 


ADD 


H..DE 


FECI 


83161 


POP 


BC 


FWSltfD 


83871 


BJC 


ASRIT 


FBEDF1 


•387I 


POP 


AF 


F9A7E5, 


83881 


PUSH 


ML 


F8EE3A33FA 


I3WI 


LD 


A, (FIB) Hood cureor-pof. Cher into 


F9ABC1 


■4001 

not! 


POP 


BC 


FSF1 C9 


13191 


RET 


(Scripsit aceu aid -> tack 


F9A9 21AAF6 


83911 MIL 


LD 


MLJVRT 




13111 ! 






F9AC19 


•3911 


ROD 


HL.BC 


FBF2 212DFC 


13111 SLACC 


LD 


HL>A06 lielict kcu routim 


rH»2Z76FB 


83921 


LD 


OMK»J»,HL(aut raault Urn 


F8F5CDCf7A 


13121 


CALL 


DEPL !di»l« OfKert 


P1M C35FF1 


83938 


JP 


CETKY (bat* to input loop 


F8F8CD1911 


13131 


CALL 


19H >input ( of accu 




83911 t 






FBFBD631 


83111 


SUB 


3W 


FH3 217AFC 


83951 MW 


LD 


HL.DM5 (input valua to Vt routim 


F8FDE6I1 


13151 


ma 


1 


FmCDCVA 


83961 


cm 


DISPl idi»la») CMD-lim 


FBFF F5 


13161 


posh 


AF 


FIB? 218E3F 


83971 


LD 


Hl,KAO (claar V( buffar 


F911C6M 


13171 


ATJD 


A»3W 


F1BC IMA 


83988 


LD 


8,11 


F9I2 329F3F 


13181 


LD 


(ACAD),A$diflm it ACCU - fitld 


F9BECDA3FA 


83991 


cm 


CUT 


F983F1 


13191 


FtP 


ff 


F9C121C3F 


Hill 


LD 


ML.KAD (placa curaor thara 


F9I6FEI1 


13211 


IO> 


1 !m$ it tl ? 


F9C12Z2MI 


Mill 


LD 


(18Z8H>,nl 


F983 28I9 


13211 


JR 


Z,AC1S ?so->AClS 


F9C7CD19II 


MI2IHTR 


cm 


•PH (imut char atrira 


F9MZ1M3F 


13221 


LD 


HL.AMD Jselert At 


F1CAFEM 


•H3I 


CP 


8W (up to «nter> 


F98D 227*6 


13231 OKI 


LD 


(ACTACC),HL;«tor* nu ttloctad to ACTAtt 


F9CC 28IF 


V IV If 


JR 


ZfENTER 


F911 C35FF8 


13211 


JP 


GETKY Jtack to input loop 


F9CECB33M 


8H5I 


cm 


33H 


F913 21E63F 


13251 (CIS 


LD 


H,A1AD {felect Al 


F5D1ES 


81861 


PUSH 


M. 


F916 1BF5 


13261 


JR 


OKI 


PWZ cs 


•1871 


nn 


BC 



pro iiini 


MM 


LD 


BC.IIMH 


FAB5CDCCA 


MB9I 


CALL 


DISPL 




F9D4CD6MI 


11191 


CALL 


tm 


FA8B3EH 


M9II 


LD 


A,l 


.STFLC»1 wans 1 dec's 


F9D9C1 


Mill 


POP 


BC 


FABA 18EC 


M91I 


Jt 


BOfT 




F90AE1 


Mill 


pop 


HL 




M?2I ; 








ROB 18EA 


M12I 


jt 


unt 


FABC21C7FC 


M93I TW1 


LD 


HL.TIlKStrancfer At-Ml routine 


ROD C35FF8 


M13IEMTER 


j> 


CETKT {tack to input lav 


FA8FCDMFA 


MMI 


CALL 


DISPL 






Mill ! 






FW2 2UM3F 


Mm 


LD 


HUAMD 


i 


F9EI 218SFC 


M15IKSTTF 


LD 


HL.KTH5 {transfer Vt to T: routine 


FA95 11Ei3F 


M%l 


LD 


CE.AIAD 


i 


F9E3 CDCCA 


M1M 


CALL 


DISPL idisple* Offline 


FA98 I1IFII 


M97I 


LD 


BC.15 




F9EA21C23F 


M17I 


LD 


Hl.TAD {clear TI field 


FMBEDBt 


M98I 


LDDt 






F9E9 16* 


M1W 


LD 


B,15 


FMD C35FF8 


M7W 


JP 


CETKT 




F9EBCDA5FA 


M19I 


CALL 


CUT 




15411 ! 








F9EE21BE3F 


M2II 


LD 


HL.KAD {transfer 


FAM21623F 


I5I1ICLRQB 


LD 


HL,CAD 


{clear QD-buffer 


F9F1 11C23F 


M21I 


LD 


DE.TAD 


FAA3 MA 


•5121 


LD 


B,lt 




F9F1 I1IMI 


M22I 


LD 


BC.ll 


FAAS3E2I 


15131 CUT 


LD 


A.2IH 


(wit* (B) blanks into it 


F9F7 EDBI 


MZ3I 


LDDt 




FAA7 77 


BMICLCB 


LD 


(HL),A 




F9F9 C35FF8 


MZ1I 


J> 


GETKY {back to input low 


FAM23 


•5*51 


DC 


HL 






M25I i 






FAA? 1FC 


RM 


DJQ 


CUB 




F9FC 2191FC 


MZ6I AWT 


LD 


HL.AME {transfer Ae->TJ routine 


FAABC9 


•5171 


RET 






F9FFC0CVA 


M27I 


CALL 


DISPL 




tSKt ', 








FAI2 21D13F 


M2W 


LD 


IL.AtAO 




•5191 J 








FAB UC23F 


M29IH0VE 


LD 


DE.TAD 


FAAC212AF7 


IS1MD9PBUF 


LD 


HLtDDLDtidisplay CHD-line routine 


FAtB I1IFII 


M3II 


LD 


BC,15 


FAAFUM3F 


Bill 


LD 


DE,3FBIH Ji.e. char's after C! in 


FAKED6I 


M31I 


LOB 




FAS2 I18III 


15121 


LD 


BC.128 


;CnTHine 


FAWC3SFFS 


M32I 
M33I ; 


J> 


CETKT 


FAB5EDBI 
FAB7C9 


15131 
15111 


LDDt 
RET 






FA1I 219BFC 


M31I AC1T 


LD 


M.,A1H5 {transfer A1->TI 




•5151 ; 








FA13 CDCTA 


M35I 


CALL 


DISPL 


FA88 218I3F 


BlilSAW 


LD 


H.,3F8tri;seve OD-lint 


FA14 21E63F 


I13AI 


LD 


HL,A1AD 


FASB 112AF7 


•5171 


LD 


DE.QODi 


FA1? 1SEA 


M37I 
H38I ; 


Jt 


HOVE 


FAfiE USUI 
FAC1EDBI 


15181 
15191 


LD 
LDDt 


BC,128 




FA1B 3EII 


M39I BACKI 


LD 


A,l {back to Scripsit (cursor unchanged) 


FAC3C9 


15211 


RET 






FA1D 3233FA 


M1IIBC0T 


LD 


(FEB), A 




■5211 ; 








FA20 C3D5FB 


Mill 


JP 


BACK {back to Scripsit with: 




15221 ; 








FA23 3E9B 


11421 UPAtt 


LD 


A.9BH {cursor up 1 line 


FAC1E5 


15231 DISPL 


PUSH 


H. 


.displn nessage in (HL) 


FA25 18F6 


M43I 


JR 


BCOT 


FAC5 21823F 


15211 


LD 


H.CAD 


(at C: field 


FAZ7 3E9C 


MMI OOHARR 


LD 


A.9CH {cursor dan 1 line 


FAC8 2ZZM1 


•5251 


LD 


(H2W).HL; onscreen 


FA2? 18F2 


M15I 


Jt 


BCOT 


FACBE1 


IS2it 


POP 


HI 




FA2B3E1F 


•Hit TABI 


LD 


A.1FH {cursor to next tab 


FACCCD47M 


15271 


CALL 


M67H 




FA2D 18EE 


M17I 


Jt 


BCOT 


FACFC9 


15281 


RET 




— 


FA2F3EBE 


MWI BACKAR 


LD 


A.8EH {cursor to start of line 




•5291 ; 








FA31 1SEA 


M19I 


Jt 


BCOT 


FAM MF 


15311 TFER 


LD 


B.15 


^transfer 15 bates 




MSII ; 






FAD2 7E 


15311 TF2 


LD 


A,(HL) 


[froa (HL) to 


FA33II 


M5HFG8 


DEFB 


1 


FAD3FE2I 


15320 


CP 


/ t 


}(DE) upto blank 




MS2I J 






FAD5 2BIS 


15331 


Jt 


Z.0UTC 




FA31 21A4FC 


11531 ROUND 


LD 


HL.RDHS {round sel. accu to 2 dec'* 


FAD7 12 


15311 


LD 


(DEM 




FA37 CDCVA 


M51« 


CALL 


DISPL .display Ofhline 


FADS 23 


15351 


DC 


HI 




FA3A CD1CFB 


M5SI 


CALL 


TRANS {sel. accu ->0P1; T:-XP2 


FAD9 13 


•53M 


DC 


DE 




FAX 2171FB 


M54I 


LD 


rL.MULLSTiswwlat* "0P1 + 1" 


FAM llFi 


15371 


DJQ 


TF2 




fmi nacFB 


M57I 


LD 


DE.TOXEH 


FADCC? 


I53BI0UTG 


RET 






FM3 111311 


11581 


LD 


BC,3 




•5391 ; 








FAIiEDBI 


1JIM 


LDDt 




FADD21C23F 


t51IITKDvT< 


LD 


HL.TAD 


!(«.)-> TJ field 


FPmzvm 


Mill 


LD 


HL.OPl {evaluate 


FAEICDiSK 


15111 


CALL 


•E65H 


{doubt .prec. ASCII const->accun 


FMB CD3723 


Mill 


CALL 


2337H 


FAD21C23F 


15121 


LD 


HL.TAO 


{clear T! 


FA* 2AHFB 


Mi2l 


LD 


rlMACTACO 


FAEiMF 


•5131 


LD 


B.15 




FAS1 £5 


Mi3l 


PUSH 


HL {edit accui 


FAEBCDASFA 


•5MI 


CALL 


CUT 




FAS2 1619 


Mill 


LD 


B,9 {irith 2 dec's after '.' 


FAEB 21C23F 


•5151 


LD 


HL.TAD 


{restore TS nith 


FA51 IEI3 


M65I 


LD 


C,3 


FAEECDF2FA 


*51il 


CALL 


ACDSP 


{rounded value (1 dec's) 


FA56 3E8I 


Miil 


LD 


A.8IH 


FAF1C9 


15171 


RET 






FA58CDBEIF 


Mi7l 


CALL 


•FBEH 




t5«i ; 








FA5BD1 


MiBI 


POP 


DE 


FAF2E5 


15191 ACDSP 


PUSH 


HL 


Wmln AtCW at place 


FAX I1KII 


M69I 


LD 


BC.12 


FAF3 21A3FB 


•5511 


LD 


HL.SECAOC! of eel. accu 


FA5FEDBI 


M7II 


LDDt 


{result back to sel. accu 


FAFiCDFFW 


15511 


CALL 


WFFH 




FA61 3E2I 


M71I 


LD 


A,' ' 


FAF9I6W 


•5521 


LD 


B.9 


{adit UCCW) nuneric nith 


FA63 12 


M72I 


LD 


(DE),A 


FAfBKK 


•5531 


LD 


C.3 


J9 dec's , 4 dec's after '.' 


FAil 13 


M73I 


DC 


DE 


FAFD3E8I 


•5511 


LD 


AfBIH 




FA6S 12 


M74I 


LD 


(DEM 


FAFFCDBEIF 


•5551 


CALL 


•FBEH 




FA66CD3FFB 


M75I 


CALL 


uXTFR {tranfser to user ke>j 


FBI2D1 


•5561 


POP 


DE 




FA69C35FF8 


M76I 


JP 


GETKY 


FBW I1KII 


•5571 


LD 


BC.11 


{and transfer back 




M77I ; 






FBW EDBI 


•5581 


LDDt 




{fron 


FA4C21B93F 


M78i atn 


LD 


HL.NKAD {select 2 dec's user key routine 


FBM21A3FB 


•5591 


LD 


H.,9ECACC! sel. accu to 


FA4F77 


M79I 


LD 


(HL),A {display '2' at 'DEC. ■' 


FMBCDF7I9 


•SMI 


CALL 


I9F7H 


{ (DE) > K field 


FA7I 21B1FC 


M8II 


LD 


H..ZH6 {display OO-line 


FBIEC9 


•5611 


RET 






FA73C0CTA 


1*11 


CALL 


DISPL 




•5621 ; 








FA76 3EII 


M82I 


LD 


Ail JSTFLW mans 2 dec's 


FBBF21AM1 


15631 UNUUC 


LD 


H.,1lA6H!dis»ble DISK BASIC wits -~- 


FA78 32A2FB 


MB3IZHDfT 


LD 


(STFLCM 


FB12 K15 


•56H 


LD 


B.15H 




FA7B C35FFB 


MMI 


J> 


GETKY 


FB1136C9 


•5651 LOOP 


LD 


OL>,K9H 




MBM ; 






FBli23 


15661 


DC 


HL 




FA7E21B93F 


M8il WER 


LD 


HL.NKAD is*w as above nith 1 dec's 


FB17 23 


•5671 


BC 


HL 




FA81 77 


MB7I 


LD 


(HL),A 


FB1B23 


•5681 


DC 


ML 




FAB2 21BCFC 


M88I 


LD 


HL,VD6 


FB1?1IF? 


•5691 


DJC 


LOOP 





8 



FB1B C9 


05700 

15711 ; 


SET 






mcwn 


■5720 TRAMS 


ID 


HL,(ACTACC>; tel. mm -> OP1 


FB1F117BFB 


15731 


LB 


OE,OPl 




FB22 CD2FFB 


057H 


CALL 


MKGHt 




FB25 21C23F 


15751 


UD 


M..TM 


; t: -> ok 


FB2B 118DFB 


15741 


U> 


DE.OP2 




FBZBCDZFFB 


15771 


CALL 


HDUBFR 




FBI C9 


(5781 
15790 ; 


RET 






FB2F I4IF 


ISBMHDVBFR 


LD 


0,15 




FB31 0E2D 


15811 


LP 


C,'-' 


[REPLACE - BY ITS TOKEN 


FB33 7E 


•5B21TFLP 


LD 


A, (Hi) 




FB31 B9 


05631 


CP 


C 




FB35ZII2 


15910 


Jt 


NZ.HTRLT 




FB3T 3ECE 


15851 


LD 


A.OCEH 




FB39 12 


05860 HTRLT 


LD 


(DEM 




FB3A23 


two 


DC 


hl 




FB3B 13 


05980 


DC 


DE 




FB3C 1IF3 


05890 


DJC 


TFLP 




FB3EC9 


15900 

15910 i 
15920 ; 


RET 






FB3F 3AA2FB 


05930 UKTFR 


LD 


A,(STFLe)! transfer sel. sccu to user k 


FB12FE01 


15910 


CP 


1 


iis it 2 dec's ? 


FBH 2118 


19950 


Jt 


K.KLTRF 




FM6 1609 


15960 


LD 


8,9 


{edit nith 2 dec's after '.' 


FBC KI3 


15971 


LD 


C,3 




FBW3E80 


15981 


LD 


A,80H 




FB1C CDBEIF 


15990 


CALL 


0FBEH 




FBf 1813 


06111 


Jt 


KLSKP 




FE51 2A7CB 


06111 KLTRF 


LD 


HL,(ACTACC); transfer sel. kxu into 


FB51 ED5B74FB #6(21 KLSKP 


LD 


DE,(U5RKM»; USRKAD = buffer of selected 


FB58 OAOF 


16131 


LD 


8,15 


! user key 


FB5A7E 


16111 SKIP 


LD 


A,(HL> 


', U>to 


FB5B FE2I 


06050 


CP 


t * 


Sblar* 


FB5D20H 


16060 


Jt 


NZ.FDM* 




FB5F 23 


16171 


DC 


HL 




FBAO 15 


06180 


DEC 


B 




FBA1 18F7 


06090 


Jt 


SKTP 




FBA3 12 


16100 FDNUH 


LD 


(DE),A 




FB61 23 


06110 


DC 


HI 




FB65 13 


O6120 


DC 


DE 




FB6A7E 


O6130 


LD 


A, (HI) 




F867FE20 


16110 


CP 


' ' 




FB69 2802 


06150 


Jt 


Z.EWTF 




FB66 11FA 


06160 


DJC 


FDNUH 




F660 3ESD 


06170 ENDTF 


LD 


A,! 




FB6F 12 


16181 


LD 


(DE),A 




FB7I C9 


16190 
06200 ; 


RET 








1621 1 tttrttttttufititltiiiiittiiiiiiii 


FB71 CD 


06220 NU1ST 


DEFB 


KDH 




FBT2 30 
3A 


06230 


DO* 


'0!' 




16210 ; 








FB71M3F 


16251 ACTACC 


DEN 


AMD 




FB76AAF4 


16261 USRKAD 


DEFM 


BUFRT 




•B*F 


16271 0P1 


DEFS 


15 




FBB7 31 


06280 


DEFH 


'♦ooir 


{adjust for round off errors 


31 31 31 31 








FB8C tt 


16290 TOKEN 


DEFB 







IIIF 


06311 OP2 


OEFS 


15 




FB9C 30 


16311 


DEFM 


00001 


! sane K ibovc 


3( 3» 31 31 








FBA1 3A 


06320 


DEFB 


/* / 




FBA2 10 


06330 STFLG 
16310 ; 
16350 ; 
•6360 ; 


DEFB 







FBA3 0001 


06371 SECACC 


DEFH 


1 




FBA5 1000 


06381 


DEFM 







FBA7 0001 


06390 


DEFM 


1 




FBA9 1001 


06100 


DEFM 


1 




FBAB 1011 


06110 cadr 


DEFM 


1 




1081 


06121 BUFF 
06131 ; 


DEFS 


128 




3F82 


06110 CAD 


EOU 


3F82H 


; addresses of OtMine fields 


3F8E 


16150 KAD 


EOU 


3F8EH 




3F9F 


06160 ACM) 


EOU 


3F9FH 




3FM 


06170 AMD 


EOU 


3FDW 




3FE6 


06180 A1AD 


EOU 


3FE6H 





3FC2 14191 TAT 


EOU 3FC2H 










3FAE 04510 IKAD EOU 3FAEH 










3FB9 16511 NKAD EOU 3FB9H 










16521 ; 














16531 ; 














FGZD 73 I45U ACH5 DEFH 'sel. Accu 










454C2E21114343752I 












FC37 13 14551 


DEFB 3 












FC3B 51 16561 TFHS DEFH 'T->sel.Acc' 








2D3E73456C2E116343 












FC12*3 16571 


DEFB 3 












FC13 61 I65BI ADHS DEFH 'add 










41 4121 21 21 21 21 21 20 












FC« 13 14591 


DEFB 3 












FCC 73 16611 SUBNS DEFH 'subtr 










7562 71722*21202121 












FC58 (3 16411 


OEFB 3 












FC59 6D 16621 IUHS DEFH 'nult 










756C71212I212I2I2I 












FC63 13 16631 


DEFB 3 
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THE EXPLOITED MEDIA, AND HOW NOT TO BE ONE OF THEM 
A book review by exploited editor Jack Decker 

Recently we were offered a review copy of THE UNABASHED 
SELF-PROMOTER'S GUIDE - What every man, woman, child, and 
organization in America needs to know about getting ahead by 
exploiting the Media by Dr. Jeffrey Lant. This is a very long title 
that describes the contents of a rather long book. Having waded 
about 2/3 of the way through its 366 pages, I know know why we got 
a review copy. We were just another media source to be exploited. 
Dr. Lant is hoping for just the sort of publicity I'm giving him by 
writing this column. And, I actually don't think he much cares 
whether I give the book a good or bad review (though I'm sure he'd 
prefer a good one), just as long as I give him some publicity. In the 
promotion business, getting your name known is half the battle. 

So why am I letting Northern Bytes be exploited in this 
manner, especially when the book has (on the surface, at least) 
nothing at all to do with computers? 

Well, first of all, many of our readers have secret dreams of 
writing a software package that will become as popular and well- 
known as Pac-Man or VisiCalc. Or perhaps you'd like to write a 
book on the rise and fall of the TRS-80 (with a chapter on 
NORTHERN BYTES included therein, I'm sure). You will need to 
promote it somehow and this book could be helpful in that regard. 

Second, many of our readers have some connection with the 
media - either radio, television, or the press. If that describes 
you, you need this book in self-defense! There are thousands of 
self-promoters similar to Dr. Lant out there, just looking for ways 
to get free publicity. This book describes just about every "trick of 
the trade" of self-promotion that you'll ever come across. At least 
if you've read the book, you can recognize the various ploys when 
you *ee them coming, 

And third, a self-promoter is a natural customer for word 
processing and computer services or equipment. Dr. Lant frequently 
advises readers to send out letters of various types, media 
releases, sample newspaper articles, and various other types of 
paperwork. In many cases the core of this material remains the 
same, but different versions are produced for different types of 
media, different localities, etc. The book gives numerous samples 
of various types of paperwork that the self-promoter must 
generate. Anyone that follows Dr. Lant's advice will either have to 
have word processing equipment (or hire someone that has it to do 
the work for him) or spend an awful lot of time retyping basically 
the same material over and over and over..... 

Then, too, it is necessary for the self-promoter to keep 
records of various contacts he has made throughout the media. A 
natural function for a good relational database type program. 

Okay, I have now successfully tied in the relationship of Dr. 
Lant's book to the readership of NORTHERN BYTES (which, if Dr. 
Lant were as good as he says he is, he would have made this 
connection for me in the materials he sent. But then, maybe he 
doesn't know that much about the capabilities of computers!). But, 
you may be asking, is the book worth the $31.50 asking price? Well, 
I have to answer a qualified yes, The qualification depends on who 
you are, what you want to promote, and how hard you are willing to 
work at it. It also, to some extent, depends on your sense of what 
is right and wrong, what is acceptable behavior and what is not. 

This last point deserves some attention. The term "unabashed 
self-promoter" is the key. Webster says that the term ABASH 
means "to make ashamed and uneasy! make self-conscious and 
embarrassed", so an UNABASHED self-promoter would be one who 
does not get embarrassed, ashamed, or self-conscious, And the 
word "self" is also important. The theme of this book is that you 
promote yourself first (as an expert in your field) and your book, 
product, service, etc. will be seen as more valuable because it has 
been produced by an obvious expert. Well, I have a couple of 
problems with this. Apparently Dr. Lant feels no shame or 
embarrassment in using his friends and associates to help promote 
himself, but I think most of us would draw the line at least in using 
our friends in this way. And then there is the whole matter of self- 
promotion, which more often than not turns into blowing one's own 
horn. At this point it might be appropriate to quote from the Bible! 
"Let another praise you, and not your own mouth! someone else, and 
not your own lips." (Proverbs 27!2, NIV). Or, as The Book puts it! 
"Don't praise yourself! let others do it!" The problem with praising 
yourself is that it leads to pride in one's self, and to once again 
quote from Proverbs, "Pride goes before destruction, a haughty 
spirit before a fall." (Proverbs 16!18, NIV). 

Even if you feel that you can avoid the entrapment of pride 
(which isn't at all easy for most of us), there's still the matter of 
whether you have what it takes to be a self-promoter, If you follow 
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the advice in Dr. Lant's book, your name will be constantly 
appearing in newspapers and magazines and your voice and face will 
be familiar to radio and television audiences. Many of us wouldn't 
be comfortable with that kind of exposure. Some people thrive on 
being in the public view, however, and maybe you are one of them (or 
could learn to be). 

Dr. Lant tells the reader a lot about himself in the pages of 
this book. Much of this information is designed to enhance his 
image as an "expert", but he lets us in on a lot of his personal 
views and feelings as well. This may have been a tactical error. 
About the only common ground that I could find with him is that he 
"feels uncomfortable in a suit or anything resembling standard 
business clothing." Other than that... well, I was always told that 
if you can't say something good about someone, don't say anything 
at all, The bottom line, however, is that Dr. Lant does not impress 
me as being a person I'd want to emulate or in any way pattern my 
life after. One particular quotation from page 93 of Dr. Lant's book 
stands out in my mind! 

"The associates in your existing circle of friends, 
acquaintances and business colleagues belong to 
dozens of organizations. It is now your 
responsibility to find out which ones they are and to 
decide which of them are appropriate for you. 

"I meet hundreds of people every year. With 
each of them I launch a networking conversation so 
that I can decide where they fit in my life and which 
contacts and associates they possess which may be of 
use to me. You do the same." 

In other words, if I am reading correctly Dr. Lant is commanding me 
to choose my friends and associates according to what they can do 
for me, or how much use I may be able to make of them. No, thanks. 
I suspect that even if these people really wanted to be my friend to 
begin with, that desire would probably quickly leave them once I had 
"used" them a few times, Unless, of course, they figured that they 
could similarly use me to further their causes. Either way, it's not 
the sort of foundation I'd want to build a friendship on. 

Also, it seems that at times Dr. Lant does not follow his own 
advice. At one point in the book, when writing about "Problem- 
Salving Process Articles", Dr. Lant advises the reader to "Keep the 
language simple, compelling. Readers rightly mistrust experts they 
cannot understand." Yet throughout the book (and especially in the 
first few chapters) Dr. Lant uses words that would probably not be 
in the vocabulary of someone that does not have at least a college 
education. Perhaps he is trying to impress us with his command of 
the English language, but it is my opinion that writers of self-help 
books should try to use language such that the average reader (who 
possibly has only a high-school education) will not have to sit with 
a dictionary at his side while reading the book. 

So I have very mixed feeling about this book. I think it 
contains some very good advice and some simply awful advice, all 
within the same cover. And I do not think that it has the universal 
appeal that Dr. Lant seems to think it should have (I can't imagine 
too many children that would have the need or desire to exploit the 
media, for example). On the other hand, I would consider it "must 
reading" for editors (and other personnel) of magazines, 
newspapers, TV and radio news programs, etc. Between those two 
extremes, most of us would find the book interesting (and shocking 
in places!), but might have a tough time separating the "meat" from 
the "bones". 

If, in spite of this review (or perhaps because of it?!) you 
would like to obtain The Unabashed Self-Promoter's Guide , it is 
available for *31.50 (price includes shipping) from Jeffrey Lant 
Associates, Inc., 50 Follen Street, Suite 507, Cambridge, 
Massachusetts 02138 or telephone (617) 547-6372. 

M0ffiU& JIE«pa^80 RQUJJHES, 

by Tony Domigan 

P.O. Box 150, Thomastown, Victoria, Australia, 3074. 

MCI-ID ! 254-5121 

Here's some useful unpublished NEWDOS/80 version 2 (Model 
III) routines! 

4C37H - Multiply H register by A register - result in HL 
4C39H - Multiply HL Register by A register - result in HL 
4C57H - Divide HL by 5, quotient in HL and remainder in A 
4C59H - Divide HL by A, quotient in HL and remainder in A 
44D2H - Convert DE to ASCII string pointed to by HL 
44D7H - Convert A to ASCII string pointed to by HL 



MAGIC MATH PLUS 

A continuing series feature in Northern Bytes 

by Dr. Michael W. Ecker 

THE TRIANGLE NUMBER TRICK 

[Dr. Michael Ecker, an Associate Professor of Mathematics 
and Computer Science at the University of Seranton, is a columnist/ 
contributing editor of Creative Computing! Electronic Education and 
Soft Sector, and formerly of Byte, Popular Computing and Computer 
Gaming World. He writes columns on mathematical and computer 
recreations. A book based on material similar to that in his 
columns, "Gems of Recreational Computing", is scheduled for 
release by Arco Publishing in the Fall of 1985. He also does 
occasional freelance pieces on financial mathematics, and software 
reviews. As the alter ego of Recreational Mathemagical Software, 
Dr. Ecker offers this serialization of some of his Magic Math Hub 
software, a collection of programs of "mathemagic", games, 
educational programs, financial utilities and numerous number 
tricks. At least one program from Magic Math will be offered in 
each installment. Readers who would prefer not to type in programs 
can purchase a disk directly from him. Northern Bytes is pleased to 
extend its coverage of useful information for TRS-80s to basic 
Basic applications and recreations. Information regarding 
questions for Dr. Ecker and/or ordering will be provided at the end 
of each article. 

Incidentally, for those of you who missed Dr. Ecker's column 
last issue, your editor must offer profuse apologies. We moved the 
deadline up one week at the last minute, without giving proper 
notice to Dr. Ecker. This installment of Magic Math Plus arrived in 
plenty of time for the old. deadline. It was your editor's fault only., 
and I will accept being stoned with abacus beads (preferably plastic 
ones!) as my punishment.! 

The Triangle Number Trick is a cute program named for the 
configuration achieved by the numbers used. Readers may find it 
reminiscent of Pascal's triangle. Indeed, the trick is based on a 
theorem which is both combinatorial and number-theoretic in nature. 
Roughly, it says that binomial coefficients C(p,k) - the number of 
ways of choosing k things from p without regard to order - are all 
"-•ivisible by p if p is prime. This program exploits the p=5 case. 

* ft doesn't really matter whether or not any of the above 
makes, any sense to you. This is because the program is self- 
contained. Furthermore, if you are unfamiliar with Pascal's 
triangle, one of the programs on the software I am marketing 
contains a tutorial on it. In fact, readers who desire a fuller 
explanation of the Triangle Number Trick may purchase Magic Math 
Plus, which contains this trick's program with full explanation. The 
software containing the Triangle Number Trick is also accompanied 
by numerous other mathematical recreations and bonuses. 
Furthermore, Northern Bytes readers may obtain Magic Math Plus 
for 20% off. See the note at the end of this article for more 
information. 

Triangle will run on any level 2 system (Model 1,3,4, tape or 
disk), possibly others. The program begins with your TRS-80 
predicting, before you do anything, what will be the final answer to 
the calculations which are going to be performed. What is 
remarkable about this is the fact that the calculations are based on 
your inputs to a very large degree. Nevertheless, in spite of this, 
the computer provides you with the correct answer in advance. The 
computer selects two integers (whole numbers) and then requests 
that you provide four integers of your own choosing. The computer 
then displays the six numbers on a line. 

Next, your 80 will add every two adjacent pairs of numbers 
and, via some more liberal use of the Print S command, print the 
sum under and in between the two numbers. If the sum is larger 
than 5, the computer will only display the result for a brief moment, 
and then will subtract 5. It will keep doing this until the result is 
no longer greater than 5. So, if the two numbers are 13 and 8, for 
example, the computer will display 21 (the sum) under and between 
the 13 and the 6, but only for an instant, as 21 is larger than 5. 
Then, 21 will vanish and be replaced by 16 (as 21-5»16). Since 16 is 
still larger than 5, it too will vanish and in succession you will see 
11, then 6, and finally 1. 

This process is repeated for every pair of adjacent numbers in 
he top row until a second row of answers appears. This row will 
.hen contain five numbers. Now what? Well, the computer now 
repeats the process using pairs of adjacent numbers from the second 
row. This is turn yields a third row of four numbers, to be followed 
by a fourth row of three numbers, a fifth row of two numbers, and 
then - the moment of anticipation - the final row bearing the final 
answer... the one somehow picked by the computer! 



I have little doubt that many readers will have little or no 
trouble figuring out what the computer does, but this still does not 
fully explain why the trick works. Ah, but you will allow me that 
one small mystery - at least for a little while - won't you? For 
now, enjoy the trick! See if you can't figure it out for yourself! 

I actively solicit your comments, pertinent questions, 
suggestions, improvements (always plenty of room for them!) and so 
on. Write to me directly at the address above. For those who own 
TRS-80 Model 3, 4 or 4P and who would prefer not to type in the 
program, send me a disk and $7.50, or »10 alone, and I'll include the 
program, plus an extra half dozen programs in a menu-generated 
format on a self-booting disk with a licensed DOS, Only one disk 
drive is needed. Ask for Magic Math Plus sampler disk with 
Triangle Trick. If you don't ask for Triangle Trick explicitly, it will 
not automatically be included as it's not ordinarily on the demo 
disk, so please do ask! Tou may also obtain Triangle Trick, 
previous issue's Super-Blackjack, and earlier issue's loan 
amortization, as part of the 36 program, double volume collection 
available on Magic Math Plus. 

Magic Math comes on a self-booting disk -with XDOS, a 
licensed disk operating system compatible with TRSDOS 1.3, from 
Mr. Jim Kyle of the Software Factory. The collection is totally 
menu generated (again, courtesy of software from the Software 
Factory - and available from Recreational Mathemagical Software), 
This combination makes use of Magic Math almost automatic. 

Volume 1 contains approximately 20 programs, including 
Fastloan, Compound Interest, Super-blackjack, Super-Trick, Super- 
Fast Prime Number Cruncher, The Game of N, Fibonacci Numbers, 
Additive Sequences, Base Two (a trick with explanation) and loads 
of other goodies! 

Volume 1 sells for S24.95 plus »1 for shipping and handling. A 
volume 2, written by programmer/writer Mr. David B. Lewis (who 
writes in the likes of 80 Micro and others), is available with lots of 
other numerical curiosities involving convergence, as in the Collatz 
conjecture, and with graphic and other games (as in Hexapawn, 
Repeater, etc.), with at least 13 programs available for the same 
price. Same menu generated format available for Volume 2. 

Special offer! Volumes 1 and 2 combined, with the self-booting 
disk, XDOS, a minimum of 36 programs (including some bonuses and 
tutorials) in a menu generated format, a title page and four menu 
programs / pages - usually all for »36 + Si S&H - now 20% off! 
Send just S29.75 - postpaid. That's just «4.80 above the cost of 
either volume alone. 

Lastly! I will be pleased to send anybody who wishes further 
information a catalog if you send a self-addressed stamped 
envelope. Please specify your computer brand/model. I remind you 
again that your comments and questions are welcome and 
appreciated. Until next issue! Happy Computing! 
Dr. Michael W. Ecker 
Recreational Mathemagical Software 

129 Carol Drive 

Clarks Summit, Pennsylvania 18411 

(717) 586-2784 

[Screen dump of program, just before final answer (3 in this 
case) is placed at bottom point of triangle. In this example, the 
computer provided the numbers 8 and 35, while the user provided the 
numbers 41, 27, 15, and 38. The computer predicted that the answer 
would be 3 before the user's numbers were entered!! 



41 



Z7 



15 



38 



35 



THE CORRECT ANSWER MILL BE 3 

THE COMPUTER HILL NOW ADD ADJACENT NUMBERS AW, IF NECESSARY, 
SUBTRACT 5 UNTIL 5 OR LESS IS OBTAINED. IT HILL THEN PLACE 
THE RESULT UNDER AND BETWEEN THOSE THO HUrSERS, FOR EACH PAIR. 



[Program listing! 1 
100 CLEAR500:S«=STRING*(23,42) 

110 CLS!PRINTe342,Ss:PRINT04O6,"«TRIANGLE NUMBER TRICK*"!! 
FRINT@470,Ssi 

1 15 PRINT 0960,"RECREATIONAL MATHEMAGICAL SOFTWARE (C 
1 »985 DR. MICHAEL ECKER" 
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120 FORJ=lTO1500!NEXTJ 

200 CLS 

205 PRINTSFRINT 

210 PRINT "In this trick, the computer will display numbers you IKPU 

T as" 

220 PRINT "the top row of a triangle. It will add adjacent numbers a 

nd" 

230 PRINT "then subtract multiples of 5 until the answer is 5 or less 

■ 
• 

240 PRINT "Each answer will be placed between and below the numbe 

rsso" 

250 PRINT "as to form a new, smaller row of numbers." 

260 PRINT "This process will be repeated until a single number is ob 

tained." 

270 PRINT "Before you even begin XNPOTing the numbers, the compu 

ter" 

280 PRINT "will provide what will ultimately be the final answer!!" 

290 PRINT 

300 INPUT "PRESS <ENTER> WHEN YOU ARE READY TO CONTINUE 

305 DIM A(100) 

310 RANDOM 

320 A(l)»RND(40)iA<6)-RND<50) 

330 G-A(lHA(6)JQ-Q-5*INT((Q-l>/3) 

340 CLS 

350 PRINT 8312,CHR»(23)"THE CORRECT ANSWER WILL BE"!Q!FOR 

Z-l TO 2000SNEXTZ 

355 PRINT 0630,CHRt(28r" 

360 PRINT CHR»(28)"THE COMPUTER HAS NOW PICKED TWO NUMB 

ERS"!FOR Z-l TO 15001NEXTZ 

365 PRINT CHR$<28)" 

366 PRINT B5,A(l)iPRINT 855,A(6>:FOR 2-1 TO 1200!NEXT 

370 PRINT 6640,"PLEASE INPUT FOUR WHOLE NUMBERS (SAY, 5 TO 
50) ONE AT A TIME" 

380 PRINT Q704,"HIT <ENTER> AFTER EACH NUMBER" 
390 INPUT AQKPRINT 815,A(2)!PRINT9767,"":iNPUT A(3)!PRINT 025 
,A«3>:PRINT 9767," 

395 INPUT AWNFRINT 8»,A(4>:PRINT 0767,""JINPUT At5)SPRINT 84 
5,A(5) 

400 PRINT 8768," 
410 FRBn-064OV-7KE-COMPUTER WILL NOW ADD ADJACENT NUMB 



420 PRINT "SUBTRACT 5 UNTO. 5 OR LESS IS OBTAINED, IT WILL 
THEN PLACE" 

430 PRINT "THE RESULT UNDER AND BETWEEN THOSE TWO NUMB 
ER8, FOR EACH PAIR." 
440 PRINT 

450 INPUT "PRESS <ENTER> WHEN YOU ARE DONE READING THIS" 
IX 

460 PRINT 8832," 
470 FOR 1-7 TO 11 
480 A0>A<X-6»A(I-5> 
490 READX 
510 PRINT QX,A(I> 

520 IF A(I)>5 THEN GOSUB 8001GOTO 510 
530 NEXT I 
540 FOR 1-12 TO 15 
550 A(D-A(I-5»A(I-4> 
560 READX 
570 PRINT 8X,A(I> 

580 IF A(I»5 THEN GOSUB 800iGOTO 570 
590 NEXT I 
600 FOR 1-16 TO 18 
610 A(I>-4(I-4HA(I-3> 
taftRBAsMC 
630 PRINT 8X,Aa> 

640 IF A(I»S THEN GOSUB 800JGOTO 630 
650 NEXT I 
660 FOR 1-19 TO 20 
670 A(D-A(I-3>+Aa-2) 
680 READ X 
690 PRINT 8X,A(I) 

700 IF A<X»5 THEN OOSUB 800:GOTO 690 
710 NEXT I 

800 IF A(I)>5 THEN A<D*A(I)-5;FOR Z=l TO 500SNEXT5RETURN 
980 FOR Z-l TO 12005NEXT 

990 PRINT Q640,"OICAY, AS PREDICTED, HERE COMES THE ANSWER 
OF"!Q!" 

1000 PRINT 8704," 
1010 PRINT 8768," 
1020 PRINT 8832," 



1025 FOR Z=l TO 1500JNEXT 

1030 Q=A(19)+A(20> 

1040 PRINT S350,Q 

1050 IF Q>5 THEN Q-0-3JFOR Z»l TO 50OWEXTSGOTO 1040 

1060 FORZ=l TO 1500JNEXT 

1070 PRINT 8848, TO PLAY AGAIN, TYPE THE LETTER P* 

1100 I»-INKEY*aF It-"" THEN 1100 ELSE IF »-"P" THEN RUN 

1200 DATA 74,84,94,104,114,143,153,163,173,212,222,232,281,291 



OBOOOO OBd C 
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ATTENTION HARDWARE HACKERS 

As this issue of Northern Bytes was going to layout, I got a 
letter from Don McKeniie, 29 Ellesmere Crescent, Tullamarine, 
Victoria 3043, AUSTRALIA. Don had read my pita for a low-cost 
1200 baud MODEM and wrote to advise me that Mick Gulovstn sells 
such a unit in kit form for si 30 Australian (The Australian dollar is 
worth around 62 cents at present, so at the time of this writing 
such a modem could be purchased for somewhere around $80 U.S. 
plus shipping). . 

The kit uses an Am7910 WORLD-CHD?™ Modem IC, op amp, 
and 2716 for control logic switching. The Am7910 is capable of 
operation using both the Bell and CCITT standard*, so the modem 
should be usable within the U.S. (possibly with a bit of very minor 
modification - I haven't seen the kit so can't say whether any 
modification would be necessary or noth It does not include front 
panel switches, LED, or phone jacks, and does not have an auto- 
answer feature. It is designed to mount inside your computer (or 
expansion interface) and draw power from your computer's power 
supply, but an external power source (using a 7905 regulator) may be 
used if necessary. 

Of course, such a unit would not be F.C.C. registered and thus 
could not be legally connected to the telephone system, but if you 
have your own PBX system (or like to live dangerously and figure 
it's none of the phone company's business what you connect to your 
phone lines), you may want to contact Mick Gulovstn, 14 Sutherland 
Street, Glenroy, Victoria 3046, AUSTRALIA for more information. 

Don has also been busy la tely. He has developed aj 

line ^"yluTpl^Tnlerusfn^la^oWWn^Bnics male aft« frfmale 
connectors. It uses a Z80A CPU and can bt configured for 8K, 16K, 
32K, or 64K simply by adding extra 4164 (64K) memory chips, Den is 
selling what he calls a "PBUFF SHOW FORM KIT" which consists 
of a bare single sided printed circuit board and one 2716 IPROM 
programmed with PBUFF software (version 1,0). You also gtt full 
assembly instructions (including debugging information in oast you 
get into trouble) and free hardware debugging advice via phone or 
mail. You must provide the other parts - a suitable cast* power 
pack (+5 volts stolen from your computer or a cheapie external 
power supply capable of putting out 9 volts AC or DC at 400 ma or 
more), Centronics male and female connectors, as many 4164 memory 
chips as you care to use, and about s20 worth of additional 
components. 

The PC board is designed to mount directly into a DICK SMITH 
ELECTRONICS catalog • H-2505 instrument case. Dick Smith 
Electronics has stores in Australia and Now Zealand and hat Just 
recently started opening stores and "authoriied re-sellers" here in 
the U.S. (they had a number of pages in a recent issue of Radio- 
Electronics magazine). 

Don sells the PBUFF kit for »35.00 Australian (around »22 
U.S.) plus *5 for postage to North America. If you need a 3.58 HRi 4 ^^ m 
crystal, Don can supply that for mm <j tet n t f j fn, Hjt »*iMt|| 
supply of 4164 memory chips available bur as he notes, the prices on """"" 
those fluctuate on a daily basis (and most likely are sold for less 
here in the U.S.). 

Don also offers several other hardware modifications for the 
TRS-80 Model I and the "clones" (PMC-80, Dick Smith SYSTEM-80, 
Video Genie, etc.). He puts out a catalog but as he is basically a 
hobbyist (not a Urge corporation) and airmail postage is expensive, 
I'd suggest you include two or three dollars for postage if you want 
the catalog. If you tell him what kind of system you have (or what 
you might be looking for in the way of hardware mods) he may^e^ 
better able to advise you as to what he has that might bt 
interest to you. Once again, Don's address is! Don McKemie, 
Ellesmere Crescent, Tullamarine, Victoria 3043, AUSTRALIA and 
his telephone number is (03) 338-6286 (from the U.S. dial 
011+61+3+338-6286, and remember the time difference - no one 
likes to be awakened at 3 A.M.!) 
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THE FUTURE OF COMPUTER TELECOMMUNICATIONS 
by Jack Decker 

When you stop and think about it, many "advances" in science 
and technology are very simple once you understand how they work. 
For example, the basic idea behind the telegraph is so simple that 
just about any junior high school science student can put a crude 
model together using blocks of wood, nails, wire, strips of metal cut 
from tin cans, and a battery. Yet we still remember the name of 
Samuel Morse as the inventor of the telegraph. 

Or, take a more recent example. Today's communications 
satellites, which orbit in a fixed position above the equator, are 
said to be located in the Clarke Orbit Belt . This belt is named after 
Arthur C. Clarke, a science fiction writer who first envisioned the 
belt of satellites orbiting above the earth in a geosynchronous orbit 
(that is, each satellite appears to be in a stationary position in the 
sky, as viewed from the earth), The idea of a band of orbiting 
satellites is one that any high school science student can 
understand, yet it was significant enough to have Mr, Clarke's name 
forever attached to the satellite belt above the equator, 

Point is, some ideas seem so obvious once you think about 
them a little, yet they revolutionize the way we live once they are 
implemented. 

Hell, I have a modest proposal. This idea is also one which 
seems simple once you think about it, yet it could revolutionize 
communications. Moreover, it uses no new technology. The system 
could be implemented on existing hardware, once the software were 
written. 

Please note that the benefits of this system are partly 
artificial. If the pricing structure of telecommunications services 
(particularly the long distance telephone network) were different 
than at present, there might be no need for this proposal. The one 
thing that could eliminate the usefulness of this proposal is if 
telephone charges were not distance-sensitive (in other words, if 
the.charge were the same to call a telephone 20 miles away or 3000 
miles away). Although some feeble motions in that direction have 
been, made by some of the long distance carriers, I really don't 
foresee the elimination of distance-sensitive pricing in the near 
future. In addition, new technology (a two-way cable or satellite 
link to every home, for example) could eliminate the need for what I 
propose. But then, Morse's telegraph had a limited lifespan, yet it 
was still the only practical means of long distance communications 
for a number of years, 

So, with that in mind, here's the proposal' 
At the present time, most computer services (those provided 
via mainframe computers) are accessed via the telephone network, 
That is, you sit at your computer, and you (or your "smart" 
telephone modem) dial a number that connects you with the 
computer. Now, if the computer in question happens to be in the 
same city .that you're in, there are no long distance phone charges 
incurred by either you or the host computer. This is the ideal 
situation (remember this, we'll be coming back to it). 

However, let's suppose you're in Chicago and the computer you 
want to access is in New York. At this point you will probably have 
two choices. One choice, which is always available, is to simply dial 
up the computer over a regular long distance network, such as 
AT&T, MCI, GTE Sprint, or any of the other numerous long distance 
carriers. In this case your call will be charged according to both 
time and distance - in other words, you will pay for each minute 
online, and the charge per minute will be based on the distance 
between you and the mainframe computer. However, you will NOT 
be charged according to the number of characters transmitted 
and/or received, nor will you incur a surcharge for using a higher 
baud rate, 

Your second option, assuming that you are communicating with 
a major supplier of computer services (an information utility, for 
example) is to communicate using a packet network. In this case you 
would dial a local number in Chicago, and be connected to a small 
"front-end" computer which would assemble your messages into data 
"packets" for transmission at very high speed to the "host" 
computer. I'm not going to get into a discussion of packet network 
theory here, but the bottom line is that from the Chicago user's 
standpoint, he has made a local telephone call to access the 
computer in New York. However, the company which owns the 
computer in New York is billed by the packet network according to 
time and the number of characters transmitted and/or received, The 
computer services company in New York usually turns around and 
bills this back to our Chicago user on his monthly statement. 
HOWEVER, because the formula for calculating characters 
transmitted/received can be a bit complicated, most computer 
services companies (especially the information utilities) simply opt 



to bill their customers for packet network usage on a per-hour 
basis. The per-hour rate is then based on the packet network's 
per-hour charge, the average user's per-hour character usage 
multiplied by the packet network's character charge, plus a little 
profit for the computer services company. 

Let's review for a moment. If the computer to be accessed is 
local, there is no charge for time, distance, or characters 
transmitted/received (except perhaps in some major metropolitan 
areas where "measured service" is in use), If the computer is 
accessed via the long-distance telephone network, then we ^rm 
charged for time and distance but not for characters 
transmitted/received. If the computer is accessed via a packet 
network, then we are charged (directly or indirectly) for time and 
characters transmitted/received but not for distance. 

But even in the case of packet networks, distance can be a 
factor. Certainly the packet network must pay for the lines it 
leases from other communications carriers according to distance, 
and that affects the rates they must charge. Also, it may be a toll 
call to the nearest packet network node, and there will be an 
additional charge if access is made from a very distant point 
(another country, for example). 

One thing that does NOT change whether long distance 
telephone or packet switching networks are used is the amgynt of 
information transmitted from New York to Chicago. If the amount 
of information to be sent could be reduced, the charges would 
naturally be less. 

One suggestion that immediately comes to mind is text 
compression - that is, compress all common words (of the English 
language, for example), to two-byte codes and send only the codes, 
This is worth considering but is difficult to do in practice, 
especially on a public system where various users may wish to send 
vastly different types of information, 

However, larger savings are possible on most public-access 
systems. In order to understand this, let's visualize a system that 
many home computer users are familiar with - the CompuServe 
Information Service. 

On CompuServe, almost all of the information is designated by 
"page numbers". For example, at a given prompt a user might say 
GO PCS-1 which would display the information on that page, Now, 
the information on that page might change on an hourly basis. Then 
again, it might not be changed for several months. Let's suppose a 
user in New York connects to CompuServe (which is located in Ohio) 
and reads that page. Whether he is making a regular long-distance 
phone call or using a packet network, the information on that page 
is transmitted, character by character, from Ohio to New York. 

Now suppose our New York user calls back the next evening 
and for some reason reads the same page, which, as it happens, has 
not been changed since the last time he read it. The page is again 
transmitted from Ohio to New York, character by character, and 
again the long distance company or packet network makes money on 
it (CompuServe happens to own its own packet network, which is 
unusual, but that really doesn't affect the principle being discussed 
here), Now suppose 50 other New Yorkers call CompuServe that 
same evening and happen to read the same page. Again it is 
transmitted between Ohio and New York fifty more times. 
Somebody makes money on all that repetitive transmission! 

"But", one might wonder, "computers are getting cheaper. 
Memory is getting cheaper. Wouldn't it be more cost-effective to 
put a computer in New York, let it store each of the 'pages' and 
transmit them to local users as required, and only transmit a 'page' 
from Ohio to New York when the page is updated?" 

Well, why not? The more information that can be provided 
locally, without accessing the host computer in Ohio, the closer we 
can get to our "ideal situation" of not having to pay for time or 
distance. 

Perhaps what we are talking about here is the next generation 
of "front-end" computers. In present terminology, the "front end" 
computer is basically a "concentrator" for a larger host computer. 
For example, there is, no doubt, a "front end" computer in, say, 
Chicago (and in every other major city), that has maybe 24 (to pick 
an arbitrary number) modems connected to it. In fact, each of the 
packet networks will have a "front end" computer of this type (it's 
sometimes called a "pad"). As users dial into the modems, the 
"front end" computers handle the data communications to and from 
each individual modem. The "front end" then "concentrates" all this 
data and transmits it (at a much higher baud rate) over the packet 
network's leased circuits, Today's "front end" computer, however, 
does little or nothing with the actual data. It simply re-transmits 
it at a higher or lower baud rate (well, yes, it's actually a little 
more intelligent than that, and can usually be configured to adapt 
itself to the end user's terminal requirements, but that's about it). 
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My ides is to give the "front end" computer! a lot more to do. 
In the system I envision, each "front end" computer would provide 
as much of the computing power as possible! without accessing the 
"host" mainframe computer except when absolutely necessary. 

Before I go on, however, a word about terminology. A few 
paragraphs back I talked about using "pages" of information. I used 
this example because the concept is familiar to many computer 
users, especially those that access CompuServe. Nith other 
services, other ways might be used to identify a given block of text, 
Text or data can be transmitted using "pages", "messages", 
"packets", or even "blocks of memory" in the main "host" computer 
as the logical divisions. The basic idea is that once a given block of 
text or data has been sent to a "front end" computer, it is stored 
there for future access and not re-transmitted by the host computer 
unless it has been changed or modified. 

Let's jump a step further. Suppose we have a main "host" 
computer, located in New York, and, say, 500 "smart front-end" 
computers located in major cities around the country. Let's further 
suppose that our "host" computer is running an electronic mail and 
bulletin-board type system. In this case, our blocks of text - the 
"coin of the realm", as it were - will be messages . Once a message 
is transmitted to a given "front end" computer, it will not be re- 
transmitted unless the message is changed. How will this save 
transmission time? Two ways immediately come to mind! 

1) In the case of public (bulletin board) messages, once a 
message has been transmitted to a given local "front end", it would 
be stored there for reading by other local area users. It could be 
read hundreds of times, but would only have been transmitted over 
the long distance or packet network once. 

2) In the case of a private message, it would be available for 
re-reading as many times as necessary, even though it was 
transmitted to the "front end" only once. 

I've deliberately avoided going into specifics about the 
system because the implementation would necessarily be varied 
depending on the type of service and software available (though 
using "packets" would be an option no matter what the end use). 
But to give an example, let's suppose an electronic mail user wants 
to read his mail. Let's further suppose that he has four messages 
waiting, two of which have been previously transmitted to the 
"front end" (either on the request of that user or perhaps another 
local user who got a "copy" of those two messages). The dialogue 
might go like this! 

1) User logs in. Login information transmitted to host 
computer for verification. 

2) Host OK's login, and searches message base. It discovers 
that the user has four messages waiting. The message numbers are 
10234, 11442, 11616, and 12092. Host transmits this information to 
"front end". 

3) "Front end" computer searches its memory bank and 
discovers it already has messages 10234 and 11616. It sends 
request to host to transmit messages 11442 and 12092, which it 
stores for possible future use. 

4) "Front end" transmits all four messages to electronic mail 
user, plus it handles all the normal menu options and other "busy 
work", inquiring of the host only when it needs data it does not 
already have or data that may have changed. 

5) When user logs off, "front end" computer transmits to host 
the associated billing data plus the information that the user has 
now read the four messages (if in fact he did read them). 

6) When messages are deleted from the system, the host 
computer transmits this information to the "front end" computers as 
a background task (done during "non-busy" intervals), 

At this point you may be wondering what happens when the 
memory in a "front end" computer is full (assuming that the "front 
ends" have less memory capacity than the host). Simple, messages 
are dropped. Either the oldest messages or the least-frequently- 
read messages can be dropped. If someone requests one of these 
dropped messages, it can always be retrieved again from the host. 

Note that there are a lot of possible permutations of this 
system. For example, a system could be designed where the "front 
end" computer only connects with the host for, say, five minutes out 
of each hour. This type of setup might be very cost-effective for a 
service that does not require instantaneous delivery. For example, 
on a bulletin board type service, the fact that others might not be 
able to read a message until an hour or two after it is posted might 
be quite acceptable, if the cost of the service can be lowered. In 
this case each "front end" computer could store the entire current 
message base, receiving an update from the host (and transmitting 
new messages it has received to the host) once an hour. For a 
hobbyist type system, this could even be stretched out to once a 
day, with communications between the "front ends" and the host 
taking place only during off-peak rate periods. 



When you consider that the same block of text may be 
transmitted from place to place on a repetitive basis, it makes 
sense that if these repeat transmissions can be avoided, 
substantial savings in costs are possible. If you use an information 
utility such as CompuServe, think how many times some of the 
menus must be re-transmitted. If you live in a large city, these 
same menus may be re-transmitted to your area many times a day, 
This may make the phone companies and packet network people 
happy, but not the end user when he gets the bill. So, why not 
transmit the information once, then store it in a computer in the 
local area for additional accesses? 

That's about as far as I intend to take this idea right now. 
Actually, I can't believe that I'm the first person to propose 
something like this. The idea seems so simple, so obvious. But, 
just in case... if anyone gets the notion to name this system after 
me, keep in mind that I never went to college and wouldn't be caught 
dead (or alive) in a necktie. Is that really the type of person whose 
name you want mentioned in tomorrow's computer textbooks?! 



Provided and translated by Paul Fransen 

The program THE ARRANGER is a very nice program to 
catalog your programs on diskette. The only problem is that the 
program assumes that on a Model 3 you use disk drives with a track 
stepping rate of 3 ms. If you have older (and slower) drives, then 
there could be trouble. However, you can fix it with the following 
zap! 

Track 3, sector 8, byte 771 E6 FC becones FA 03. 
(provided by Karel Honings, Holland). 

If you have the programs CODIR/CMD and DIS/CMD or 
DIC/CMD then you may find that the following zap can be handy! 

CODIR/CMD, sector 11, bate BAt 52 becones 53 

bate EDt 52 becones 53 

Now CODIR works with DIS/CMD instead of directly with DIRi 
so the files will be sorted before they appear on the screen 
(provided by Stef Taartmans, Holland). 

You can do the same thing with CAT/CMD and DIS/CMD! 

CAT/CMD, sector 3, byte FCl 52 becones 53 

You scroll in Superzap with the + and - keys. It is nicer to do 
this with the arrow keys. 

SUPERZAP/CMD, sector 3, byte BDJ 3B becones SB 

vector 4, byte 17: 2D becones OA 

byte 3S< 2D becones OA 
(provided by Joop van Dam, Holland). 
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g4|( $59.95 pro 

INSTALLED IN KEYBOARD 

TRS-80* Model l-LII 

Send us your Keyboard and we 
will convert it to full 64K 
memory (48K RAM). Im- 
proved performance with or 
without Interface. 90 day 
warranty. Satisfaction guaran- 
teed. Quick return. Free return 
freight within U.S.A. 
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International Carbide & Engineering. Inc. 
100 Mill St. • P.O. Box 216 
Drakes Branch. VA 23937 

(804) 568-331 1 TWX: (910)997-8341 
»TM TANDY CORP. 



BCRPRT FAST SCREEN PRINT PROGRAM 

for Radio Shack dot matrix printers 

by Serge Y. Calmettes 

Have you ever worked on a fancy screen graphics display, and 
wished that you could make a printed copy of it? Well keep on 
reading because SCRPRT does exactly that! 

The program works with the TRS-80 Models III and 4 (in the 
Model in mode) [Model I users, see editor's note at end of this 
article], with or without disk and with the following line printers! 
LP V, VII, Vin, and DMP 100, 200, and 400. 

SCRPRT can be activated either from the disk operating 
system (DOS), or from BASIC by pressing simultaneously the up and 
down arrow keys. 

A full screen is printed in 30 seconds or less. This program is 
transparent to the user and can be activated at any time from DOS 
or BASIC. 

Once the program is installed, the keyboard driver is 
intercepted, and therefore SCRPRT can be triggered anytime that 
the keyboard is interrogated. SCRPRT scans the video memory, and 
the printer mode is switched from characters to graphics on a line 
per line basis as required by the type of display, When the last line 
is printed, the operation returns to the program that was running 
when SCRPRT was called in. 

Use EDTASM or an equivalent program to assemble SCRPRT 
(listing 1). You can also use a monitor such as DEBUG, MON3, or 
TASMON to enter the machine code, For 48K systems the start 
address is 0FE80H! the end address, 0FFF6H! and the entry point, 
OFE80H. At any rate save SCRPRT on disk or cassette. From DOS, 
to install SCRPRT, type SCRPRT<enter>! from BASIC load and run 
SCRPRT using the SYSTEM command. 

Listing 2 lets you enter the program from Level II BASIC. 
Make sure to SAVE the program before running it - a typing error 
can have some very unpredictable effects with machine language 
programs! The disk version is self-protecting, but not the Level II 
BASIC one (answer 32382 to the MEMORY SIZE prompt if under 
Level II BASIC). 

At times, a left bracket is displayed and printed when the up 
and down arrow keys are depressed. If you find this objectionable, 
instead use the down arrow and space bar keys. Change line 470 of 
listing 1 to! 

CP 90H {DOWN ARROW & SPACE BAR 

or line 150 of listing 2 to! 

DATA 174,025,058,0M,05&,254,1444?4,073,000,243,197 

Now you will be able to enjoy all those fancy displays even 
when your computer is turned off! 

[EDITOR'S NOTE! Model I users should be able to make this 
program run under disk-based systems ( not Level II) by changing 
the following four lines of listing 1! 



II2II VDLDC 


EDU 


H67H 


{NORKS UNDER DOS 01 


1121! CKPRT 


EQU 


•5D1H 




10240 MtMPRT 


EQU 


1M9H 


!«n FOR DISK ONLY 


C1880 


ID 


(37E8HM 


{PRDff IT 



Model I cassette-based system users can also use the above 
changes except that line 200 should be changed as follows! 



01211 VDLDC EQU 2B7SH 



{VALID UNDER BASIC ONLY 



Please note that the above changes have not been tested, but 
should be all that is required for Model I users!] 



FEBO 
IM9 
•21B 
Htt 
3810 
1016 
Ull 

FEBO 2A1610 



Hill 

10110 
10120 
00130 
00110 
10150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00210 
00250 
00260 



{SCRPRT 



LISTING 1 



! BY SERGE Y. CALHETTES, HAY 1982 

(FOR TRS-80 WOEL m 

{TO PRINT CONTENTS OF SCREEN, INCLUDING 

(GRAPHIC CHARACTERS 

;m SEE RBWKS FOR LEVEL H NON-DISK SYSTEMS ! 



ORG 

KEYSCN EOU 

VDLDC EQU 

CKPRT EQU 

KEYS EQU 

KYPNTR EQU 

ICHPRT EOU 



0FE8OH 
ID49H 

021BH 

M4HJ 

3840H 
401&H 
HUH 



{•BE80H FOR 32K 



;m FOR DISK ONLY m 



SETUP LD HL,(KYPNTR> $SET POINTERS 



FEB3 2269FE 


•0270 


LD 


(KnTVR+l),HL 




FE86 21B5FF 


00280 


LD 


HL,PRDff 




FE89 Z212FT 


11290 


LD 


(PRM>,H. 




FE8C22A6FF 


11300 


LD 


OTOM),HL 




FE8F ZZ3CFF 


11310 


LD 


(PR2+1),HL 




FE92 2296FF 


11320 


LD 


(PR3+1),HL 




FE95 220EFE 


11330 


U> 


(PR4H>,HL 




FE9B 22E3FE 


11310 


LD 


(PR5+1>,HL 




FE9B22A0FF 


11350 


LD 


(PR6+D.HL 




FE9E 229BFF 


0*360 


LD 


(PR7+1),HL 




FEA1 21B3FE 


M370 


LD 


HL,ENTRY 




FEA1 221610 


00389 


LD 


0(YPNTR),H 




FEA7Z211H 


11390 


LD 


(IBffRD.HL 


{m FOR DISK ONLY m 


FEAAZ1CIFF 


10100 


LD 


HLtnSG 


{POINT TO MESSAGE 


FEAD CD1B02 


OHIO 


CALL 


VDLDC 


{DISPLAY IT 


fEW C32D10 


10120 


JP 


K2DH 


|m FOR DISK ONLY m 




10130 ;m 


LD 


BC1A18H 


FOR NON-DEK SYSTEMS m 




I0H0 ?xa 


JP 


WAEH 


level n bash: xd 




00150 ! 








FEB3 3A103B 


10160 ENTRY 


LD 


A, (KEYS) 




FEB6FE18 


10170 


CP 


18H 


(UP ( DOHN ARROHS 


FEB8C21900 


0(180 KYDVR 


JP 


NZ,KEYSCN 


{EXIT TF NOT PRESSED 




10190 {PRDJT THE SCREEN 
10500 PUSH «F 




FEBB F5 


{SAVE REGISTERS 


FEBCC5 


11510 


PUSH 


BC 




FEBO 05 


10520 


PUSH 


DE 




FEBEE5 


00530 


PUSH 


HL 




FFJF210I3C 


00510 


LD 


rtL.XOOH 


{START OF VIDEO HENDRY 


FEC2 1611 


I0S50 


LD 


0,17 


J16+1 LDES OF THE SCREEN 


FECI 15 


10560 NXTUN 


OEC 


D 




FEC5CAA9FF 


10570 


JP 


Z.FDI 


{TERMHATE IF FDO3HE0 


FEC8 9610 


10580 


LD 


B,61 


161 CHR. PER LDC 


FECA * 


00590 NXTCHR 


LD 


C,(HL) 


5C CONTAINS NEXT CHR 


FECB79 


•0600 


LD 


A,C 


{TRANSFER IT TO A 


FECC FE80 


10610 


CP 


128 


{TEST FOR GRAPHICS 


FECEDA0SFF 


10620 


JP 


CCAUP 


iff NOT, PRINT AS IS 


FED1 78 


00630 


LD 


A,B 




FED2 FE80 


10610 
00650 


CP 


128 


{CHECK ff FIRST GRAPH CHR 
{ON THIS LDC 


FEW 3802 


10660 


JR 


C, PRDCR 




FEW 180D 


10670 


JR 


LAB 




FED8C680 


11681 PRDCR 


ADO 


A,128 




FEDA17 


10690 


LD 


B,A 


{EXTEND LDC TO 128 CHR 


FEDB 0E1B 


00700 


LD 


C.27 


{1/2LDCFEED 


FEDDCD000I 


•0710 PR1 


CALL 


%-% 




FEEO 0E1C 


•0720 


LD 


C,28 


{SECOND PART OF PRDfT CU 


FEE2 CDOOOO 


00730 PR3 


CALL 


♦-* 




FEE5 1E 


10710 LAB 


LD 


C,(HL) 


{RELOAD CHR INC 


FEE6 79 


•0750 


LD 


A,C 




FEE7E603 


00760 


AND 


3 


{CLEAR ALL BIT BUT 1 * 1 


FEE? FE00 


00770 


CP 





{BTT tOFF? 


FEEB 280A 


(0780 


JR 


Z,GR32 




FEED FE01 


00790 


CP 


1 


{BIT ION? 


FEEF 280A 


(0800 


JR 


2.GR351 




FEF1 FEOZ 


10810 


CP 


Z 


{BIT 1 ON, 1 OFF? 


FEF3 280A 


10820 


JR 


Z,GR352 




FEF5 180C 


11830 


JR 


GR357 


{BCT 1 AND • IUST BE ON! 


FEF7 8E20 


11810 GR32 


LD 


C,32 




FEF9 180A 


•0850 


JR 


CALLP 




FEFB QEE9 


II860CR351 


ID 


C233 


{LEFT PIXEL 


FEFD 1806 


11870 


JR 


CALLP 




FEFF KEA 


1(880 GR352 


LD 


C,Z31 


{RIGHT PIXEL 


FF01 1802 


10890 


JR 


CALLP 




FF03 KEF 


••9BI GR357 


LD 


C,239 


{BOTH PIXEL 


FF05CDA5FF 


•m» callp 


CALL 


PRCR 




FF08 23 


•0920 


DC 


HL 




FF09 15 


•0?30 


DEC 


B 




FF0A78 


1(910 


LD 


A,B 




FF0B FE00 


10950 


CP 





{REG A IS • D HO GRAPH 


FF0D 2008 


•0960 


JR 


HZ,HXTTST 


{CHAR ON THIS LDC! 


FFOF KOD 


•0970 


LD 


CIOH 


(CARRIAGE RETURN 


FF11 CDOOOO 


1(980 PR1 


CALL 


M 




FF11C3C1FE 


•0990 


JP 


NXTUN 




FF17FE80 


11000 NXTTST 


CP 


128 




FF19 CA1FFF 


11010 


JP 


Z,SAHE2 




FF1CC3CAFE 


11020 


JP 


NXTCHR 




FF1F IE0D 


11030 SAHE2 


LD 


C,(OH 


{REPROCESS SANE LK 


FFZ1CDA5FF 


11010 PR8 


CALL 


PRCR 




FF21D5 


11050 


PUSH 


DE 




FFZ5 111000 


11060 


LD 


DE.61 




FF28 ED52 


11070 


SBC 


HL,DE 
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FF2A01 


lint 


up 


OE 




FF2B* 


01t90 39CW 


LB 


C,(HL) 




ff2c 79 


11100 


U> 


A,C 




FF2D FEW 


11111 


CP 


128 




FF2F381I 


11121 


JR 


C6A32 




FF31E6K 


11130 


AW 


12 




FF33FEH 


11111 


CP 


1 




FF35 280A 


11151 


JR 


Z.GA32 




FF37FEM 


niii 


CP 


1 




FF39 280A 


11171 


JR 


Z,GA351 




me FEW 


01180 


CP 


8 




FF3DZ80A 


11190 


JR 


Z,OB52 




FF3F 18«C 


11200 


JR 


GA357 




FF11 IEZI 


11210 GA32 


LD 


C,32 




FF13 180A 


11220 


JR 


CALQ 




FF15 KE9 


11230 GA351 


LD 


C|233 




FF17 1804 


11210 


JR 


CALQ 




FF1? IEEA 


11250 GA352 


LD 


C,Z31 




FF« 1802 


11261 


JR 


CALQ 




FF1D OEEF 


11270 GA357 


LD 


C,239 




FF1F CWCFE 


01280 CAtO 


CALL 


PRCR 




FFS2 23 


01290 son 


INC 


H 




FF53 15 


01300 


DEC 


B 




FF5178 


01310 


LD 


A,B 




FF55FE10 


11320 


CP 


61 




FF57 2017 


11330 


JR 


HZ.SCND2 




FF59 OEID 


01310 


LD 


CWH 




FF5B CDOOOO 


01350 FK2 


CALL 


»-« 




FF5E 1802 


01340 


JR 


SAHE3 




FF60 18C9 


01370 SOC2 
01380 ; 


JR 


SSOD 




F42 D5 


01390 SAHE3 


PUSH 


DE 


{REPROCESS SAME LHE 


FF43 111000 


01100 


LD 


DE.61 




FF66ED5Z 


OHIO 


SBC 


HL.DE 




FF48D1 


01120 


POP 


DE 




F49 1E 


11130 STUB 


LD 


C,(HL) 




FF4A79 


I1H0 


LD 


A,C 




FF4BFE80 


01150 


CP 


128 




FF4D3B10 


01140 


JR 


CCN32 




FF6FE630 


01170 


AW 


« 




FF71 FEI0 


01180 


CP 


1 




FF73 280A 


11190 


JR 


Z.GH32 




FF75FE10 


11500 


CP 


16 




FF77 280A 


01510 


JR 


Z.OQ51 




FF79FE20 


01520 


CP 


32 




FF7B280A 


01530 


JR 


Z.CN352 




FF7D 180C 


01510 


JR 


CN357 




FF7F 0E20 


01550 GK32 


LD 


C,32 




FF81 180A 


01540 


JR 


CALR 




FF83 0EE9 


01570 GK351 


LD 


C233 




FF85 1806 


01580 


JR 


CALR 




FFB7 IEEA 


01590 GN352 


LD 


C,231 




FF89 1802 


01600 


JR 


CALR 




FFBB OEEF 


01610 GN357 


LD 


C,239 




FF8D CDA5FF 


11420 CALR 


CALL 


pio 




mi 23 


11630 THIRD 


DC 


HL 




FF91 MM 


11410 


DJNZ 


SDH) 




FFW OEM) 


11650 


LD 


COOH 




FF95 CD0000 


01640 PR3 


CALL 


*-* 




FF78 0E1B 


01670 


LD 


CZ7 


[BACK TO NORMAL LMEFEEO 


FF9A CO0I01 


01680 PR7 


CALL 


♦-$ 




FFW 0E36 


01690 


LD 


C,51 




FF9F CDOOOO 


01700 PR6 


CALL 


«~* 




FFA2C3C1FE 


01710 
01720 ; 


JP 


NXTUN 




FFAS CDOOOO 


01730 PRCR 


CALL 


♦-♦ 




FFABC9 


01710 


RET 






FFA9 0E0D 


01750 FT* 


LD 


CIDH 




FFABCDA5FF 


01760 


CALL 


PRCR 




FFAEE1 


01770 


POP 


HI 




FFAFD1 


01780 


POP 


DE 




FFBO CI 


01790 


POP 


BC 




FFB1 Fl 


01800 


POP 


AF 




FFB2 C31900 


01810 
01820 ; 


JP 


KEYSCN 




FFB5F5 


01830 PRINT 


PUSH 


AF 




FFB4CMB01 


01810 PRTRDY 


CALL 


CKPRT 


(CHECK FOR PRINTER READY 


FFB9 20FB 


01850 


JR 


NZ,PRTHDY 


JMAITIFNOT 


FFBBF1 


01840 


POP 


AF 




FFBC79 


01870 


LD 


A,C 


JLOADCHR 


FFBD D3F8 


01880 


OUT 


(0FBH),A 


JPRDfTn 



FFBF C9 11891 RET 

FFCt 53 11911 H5C DEFH 'Screen print installed, Ow S. CalMttet, 413-3B137Z?) 

63 72 65 65 6E 21 71 72 69 6E 71 21 69 6E 73 71 

616C4C65612C2I2862792I532E2I13 61 

6C6D65 717165732C2036 31332D333831 

33 37 32 39 29 
FFF6 ID 11911 OEFB MH 

FEB! I19ZI END SETUP 

Mill TOTAL ERRORS 



CALLP FF15 

FIN FFA9 

GN32 FF7F 

0051 FEFB 

KYDUt FEB8 

WCTCHR FECA 

PR3 FF95 

PR8 FF21 

SAHE2 FF1F 

SSOD FF2B 



CALQ FFV 

GA32 FF11 

0051 FFB3 

0052 FEFF 
KYPNTR 1116 
NXTLTH FECI 
PM FEDD 
PRO) FFA5 
SAJE3 FF62 
STHRD FF69 



CALR FFBD 

CA351 FF15 

01352 FF87 

0057 FFI3 

LAB FEE5 

WTTST FF17 

PR5 FEE2 

PRTJCR FED8 

SOB FF52 

THIRD FF90 



CKPRT M* 

SA352 FF19 

0057 FFBB 

KEYS 3B1I 

HEMPRT Ull 

PR1 FPU 

PR6 FF9F 

PRINT FFB5 

SOD2 FF60 

VDUNE I21B 



ENTRY FEB3 

GA357 FF« 

002 FEF7 

KETSCN IH9 

HSG FECI 

PR2 FF5B 

PR7 FF9A 

PRTRDY FFB6 

SETUP FEB! 



LISTING 2 
10 'SCREEN PRINT (SCRPRT) 
20 'BY SERGE T. CALMETTES, 

30 'FOR THE TRS-80 MODEL III, TO PRINT THE CONTENTS OF THE 
40 'SCREEN, INCLUDING GRAPHIC CHARACTERS. 
50 'LEVEL II BASIC VERSION FOR 16K 
60 FORI=32384T032758 

70 reada:fokei,a 

80 NEXTI 

90 INPUT'Press enter to activate SCREEN PRINT-JEN 
100POKE16526,128:POKE16527,126!X=USR(Y) 
110 DATA 042,022,064,034,185,126,033,181,127,034,018,127,034 
120 DATA 166,127,034,092,127,034,150,127,034,222,126,034 
130 DATA 227,126,034,160,127,034,155,127,033,179,126,034 
140 DATA 022,064,033,192,127,205,027,002,001,024,026,195 
150 DATA 174,025,058,064,056,254,024,194,073,000,245,197 
160 DATA 213,229,033,000,060,022,017,021,202,169,127,006,064 
170 DATA 078,121,254,128,218,005,127,120,254,128,056,002 
180 DATA 024,013,198,128,071,014,027,205,000,000,014,028,205 
190 DATA 000,000,078,121,230,003,254,000,040,010,254,001,040 
200 DATA 010,254,002,040,010,024,012,014,032,024,010,014,233 
210 DATA 024,006,014,234,024,002,014,239,205,165,127,035,005 
220 DATA 120,254,000,032,008,014,013,205,000,000,195,196,126 
230 DATA 254,128,202,031,127,195,202,126,014,013,205,165,127 
240 DATA 213,017,064,000,237,082,209,078,121,254,128,056,016 
250 DATA 230,012,254,000,040,010,254,004,040,010,254,008,040 
260 DATA 010,024,012,014,032,024,010,014,233,024,006,014,234 
270 DATA 024,002,014,239,205,165,127,035,005,120,254,064,032 
280 DATA 007,014,013,205,000,000,024,002,024,201,213,017,064 
290 DATA 000,237,082,209,078,121,254,128,056,016,230,048,254 
300 DATA 000,040,010,254,016,040,010,254,032,040,010,024,012 
310 DATA 014,032,024,010,014,233,024,006,014,234,024,002,014 
320 DATA 239,205,165,127,035,016,214,014,013,205,000,000,014 
330 DATA 027,205,000,000,014,054,205,000,000,195,196,126,205 
340 DATA 000,000,201,014,013,205,165,127,225,209,193,241 
350 DATA 195,073,000,245,205,075,004,032,251,241,121,211,248 
360 DATA 201,083,099,114,101,101,110,032,112,114,105,110,116 
370 DATA 032,105,110,115,116,097,108,108,101,100,044,032,040 
380 DATA 098,121,032,083,046,032,067,097,108,109,101,116 
390 DATA 116,101,115,044,032,054,049,051,045,057,054,054,049 
400 DATA 053,048,054,041,013 

TIPS FOR VIDEOGENIE (PMC-80, STSTEM-80) 

by H. Delahaye, Veenendaal, Holland 

Translated by Paul Fransen 

When using a Videogenie the printer is port addressed. That's 
why you can't get a hardcopy with the Tandy EDTASM program. You 
can fix this by making the following changes! 

Load the system tape. Don't start the program but instead 
press BREAK. Then change the following bytes! 

POKE 19002,253 HEX! 4A3A.FD 
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POKE 19029,253 
POKE 19082,0 
POKE 19083,219 
POKE 19084,253 
Then start again by entering SYSTEM, 
'enter '/' and ENTER. 

With the right Debug program you can save the changed 
program on tape. 



4A55,FD 
4A8A,00 
4A8B.DB 
4A8CFD 
Hhen you see the '•?' 



BASIC WORD SEARCH PROGRAM 
by Jim Mumaugh 

I wis pleased to see that yoo were interested in some BASIC 
language programs for the Northern Bytes. I have written a few 
wd will send them along. I thought your readers were more 
.nterested in Assembly so I never bothered to ask before. 

This name of this program is WRDSRCH/BAS. I altered a 
program a teacher at our high school had. Several teachers wanted 
a wordsearch program which would intertwine the words. When I got 
this program, it also did not mix the words. I don't know who those 
other guys are, but I left their names in anyway because I used 
their basic ideas. The actual program has little resemblance to the 
original. 

FEATURES OF WRDSRCH/BAS 

You are not limited as to the number of words you insert. Of 
course, the total letter count needs to be about 100 less than 
available space in order to get the words into the puzzle, 

You are limited to 40 characters wide because of the standard 
80 character width of most printers. The length should be greater 
than 20 but there is no actual limit. 

Occasionally you will be unable to fit all words into a puzzle. 
You can request the program to retry as many times as you like but 
somewhere there will be a situation when one or two words don't 
fit. I have planned for that in lines 19622 and 19624. This way a 
teacher could have a word needed "searched for" by the student 
even if it was not actually in the puzzle. 

I included some data to use as a demonstration. It's easier 
when showing someone if you don't have to think up 40 or 50 words 
before you show it off. 

I added some entertainment while the program worked, while 
keeping the user abreast of the current status of the program. 
Everybody seems to enjoy the comments. 

The most important items I added were the "save to disk" 
routines. Once you type in a word list, you can save and recall it. 
This is especially useful when a teacher wants two or more puzzles 
with the same words. I also offer to write the puzzle and its 
solution to disk (or to the printer). I prefer the disk save because I 
- only need to keep the disk version and can print it on a ditto master 
«hen needed using PRINT flname/PZL from DOS ready. 

I think the solution is actually worthless. I used it while 
debugging the program to be sure it would interlock the words. If 
you get a ratio of used spaces to available spaces near 1 you will 
have most words interlocked in 2 or more spaces. I recommend than 
you press break when I announce that I am ready to write the 
solution to disk. The program is over at this point and the solution 
just takes up disk space. 

The actual interlocking is random. Sometimes you will get 
lots of it and other times only a few. I simply pick a random spot in 
the grid to begin my word. Then I look at each letter in my word and 
compare it with the next space. If there is no conflict I continue. 
(The same letter as I am currently looking at or a blank is OK.) If 
there is a conflict, I retry at another location in the same direction, 
I try 20 times then pick a new direction. If after 160 tries I still 
don't get it in, I say it's impossible but offer to try another 160 
times. Many times I have tried over 300 times and then it would fit, 
so have patience, 

One last feature I added (because many of the teachers using 
this program are not more than very casual users) is that I pick the 
puzzle name, solution name and word list names for them. You do 
have the option to override these, however, when you use two 
puzzles with the same first word in their titles. 
I hope you find this interesting and useful. 
Jim Mumaugh 

J & J Computer Consultant 

(also Vacaville High School Advanced Mathematics teacher) 
244 North Alamo Drive 
Vacaville, California 95688 



1000'* 
1050 ' * 
1100'* 
1150 '» 
1200 ' * 
1230'* 
1300 ' * 
1400 ' * 
1450 ' * 
1500' 
1550' 



##*«*****••*********•**♦*** 

12/17/84 6S05PM • 

WRDSRCH/BAS * 

* 

WRITTEN BY RON BENNINGHOF * 

MODIFIED BY JUi LARISON (9 FATAL ERRORS) * 
REWRITTEN BY JIM MUMAUGH » 

**#«#************»*******♦* 



1700 clearioooo'.clssrandom'.defihta- 
z:fori-itoio:readex»<i>:next 

1720 DATA Zounds'tAh Ha!,Yippee!,Umph!,Aargh!,Finally!,Wh»w!,Of co 
urse!, Can't fool meSNaturally 

1800 ' SET UP MATRIX 

1840 PRINT'Do you want a demonstration? T/N ",!LIX£IKPUTx't:iF 

LEFT»(Y»,D-"Y"THENDIMA(26,21),D»<50»Ul-25ffll-20:HA>-"DEMOM 

STRATCON"!WN«50:FORI-lTOWN:R£ADWa>:KEXT!GOTO2700 

1850 INPUT"ENTER PUZZLE NAME";NA« 

I860 INPUTTJo you have a word list ALREADY on disk'JWtUFWtOT 

THEN1900 

1870 INPUT"What file name does it have"}F2*:OFEN*IM ,F2»:iNFUT# 

i ,wn:dimd*(wn):fori« itown:input# i ,d*<i>:nextjclose 

1900 PRINT'What size of matrix would you like? I recommend a 20 
X 20 with about 40 words Enter two numbers, separated with co 
mmas. 

1905 INPUT"What are your two numbers"! A 1,B1 
2000 IFAl>40THEN1900'!:Sil/2 LENGTH OF LINE PRINTER 
2100 DIM ACA1+1,B1+1> 
2200 ' ENTER NUMBER OF WORDS 



2300 D=INT(A1*B1/10) 

2305 IFW*="Y"THEN2700 

2310 PRINT"You have room for about"D"words (give or take 10). Ho 

w many words shall we use H i!INPUTWN 

2500 DIM Ds(WN> 

2600 FOR q=itown:print*enter WORD NUMBER"}Q!:iNPUT D«(GI): 

NEXTQ 

2700 GOSUB9900:OOiCLS:GOSUB11000 

2705 INPUT"Shall I save this word list to disk"{W»SIFW»0"Y"THEN2 

800 
2720IFVAL(NA«)O0THENN»»"Z , +NA«ELSEN*-NA« 

2730 IF LEN(N«»8THENN»«LEFT*(N*,8> 

2740 X-INSTRINV ">:IFX-0THENX«8 

2750 WR»=LEFT*(N*,X- 

l)+"/WRD":FRINT"The word list will be called "WRf "." 

2760 FRINT"Is this satisfactory with you? "}!LINEINPUTY1»:IFY1* 

<>"N"THEN2765 

2763 INPUT"What filename shall I use"JWR» 

2765 OPEN'OM ,WR*iPRINT#l ,WN","J:FORI-1TOWNSPRINT«1 ,Di(D" 

,"',:nextsclose 

2800 TY»0 

2810Q-Q+i:A*»D»(Q) 

2820 PRINT'I am working on J "A*". "! 

2900 PICK DIRECTION 

3000 DI-RNDI8) 

3010 ON DI GOTO3300,3800,4300,4800,5300,5900,6500,7100 

3 j 00 SET UP ARRAY 
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3200 ' FORWARD FIXED/JIM 

3300 F1«0SA*RND(A1>:B»RND<B1):IF A+LEN(A«»A1THEN3300 

3400 I«0!FORT=A TO A+LEN(A«)-1 

3410 B»»MID«(A»,I,l):iF (A(T,B>-0 OR ASC(B«)-A<T,B» THEN 3420 

3415 T-A + L£N(A*)SF1=1 

3420 NEXT T 

3430 IF Fl-1 THEN 10800 

3500 FORT-1 TO LEN(Ai)SB*>=MID»(A«,T,l)JA(A,B)«ASC03») 

3600 A-A+1'.NEXT T5GOTO7600 

3700 ' BACKWARD FIXED/JIM 

3800 F1-0JA-RND(A1):B=RND(BD:IF A-LEN(A«K0 THEN 3800 

3900 H-LEN(A*>+i:l»0SFORT»A-LEN(AS)+l to a 

3905 1=1+1 

3910 Bi»MID*(A»,II-I,l>:iF <A(T,B>=0 OR ASC03»)-A<T3»THEN3920 

3915 T«AJF1=1 

3920 NEXT T 

3930 IF Fl-1 THEN 10800 

4000 FOR T-1TO LEN(A»):Bi=MID»(A«,T,l)5A(A,B)-ASC03») 

4100 A»A-1JNEXT TiGOTO 7600 

4200 ' DOWN FIXED/JIM 

4300F1-0JA-RND(A1):B»RND(B1):IFB+LEN(A»)>B1THEN4300 

4400 I=0!FOR T-B TO B+LEN(A$)-1 

4405 1-I+l 

4410 B«=MIDS<A«,I,1>SD? (A(A,T>=0 OR ASCQ3*>«A(A,T» THEN 4420 

4415 T=B+LEN(A*>:F1=1 

4420 NEXT T 

4430 IF Fl-1 THEN 10800 

4500 FOR T-lTOLEN(AS)iB»=MID*(A»,T,l)'.A(A,B)-ASC(B*> 

4600 B-B+ 1 JNEXT TJGOTO 7600 

4700 ' UP FIXED/JIM 



4800 F 1 =0!A=RND(A 1 )!B«RND(B 1 )!IFB-LEN(A*K0THEN4800 

4900 I=0!II=LEN(A« >+ 1 :FORT=B-LEN(A*>+ 1 TOB 

4905 1=1+1 

4910 B»=MID$(A*,II-I>l>:iF CA(A,T>=0 OR ASC(B*>«A(A,T))THEN4920 

4915 T=B!F1«1 

4920 NEXT T 

4930 IF Fl=l THEN 10S00 

50oofort=itolen(a»>:b*=mid*(a*,t,i>:a<a,b)»asc(B*> 

5100 B=B-r.NEXTT5GOTO7600 

5200 ' DOWN DIAGONALLY 

5300 F 1 «0! A-RND(A 1 )!B=RND(B 1 )!IFA+LEN(A*»A 1 THEN5300 

5400 IFB+LEN(A*»B1THEN5300 

5500 I=0:FORT=0TOLEN(A«)-l 

5505 1=1+1 

5510 B*=MID*(A*,I,l>:iF t A(A+T,B+T)=0 OR ASC(B*)-A(A+T,B+T)) TH 

EN5520 

5515 T=LEN(A*)!F1 = 1 

5520 NEXT T 

5530 IF Fl = l THEN 10800 

5600fort=1tolen(a*>:b»=mid*(a*,t,1)saia,b>=asc(b*> 
5700 a=a+i:b=b+i:next t:goto7600 
5800 ' up diagonally 

5900 Fl=0!A=RND(Al)iB=RND(Bl)!IFA+LEN(A*)>Al THEN 5900 

6000 IF B-LEN(A*><1 THEN 5900 

6100 I=0!FOR T=Q TO LEN(A*>-1 

6105 1=1+1 

6110 B*=MID»(A*,I,l)iIF (A(A+T,B-T)=0 OR ASC(B«>=A(A+T,B- 

T»THEN6120 

6115 T=LENIA*)!F1 = 1 

6120 NEXTT 

6130IFF1 = 1 THEN 10800 

6200 for t=l to len(a*>:b»»mid*<a*,t,1):a(a,b)»asc(b$) 
6300 a=a+i:b=b-i:next t:goto 7600 
6400 ' up diagonally 

6500 F1«0:A«RND<A1>:B«RND<B1):IFA-LEN(A»K1THEN 6500 

6600 IF B-LEN(A*)<1 THEN 6500 

6700 I«0!FOR T«0 TO LEN(A$>-1 

6705 1=1+1 

6710 B**MIDS(Ai,I,l)SIF (A(A-T,B-T)=0 OR ASC(B*)=A(A-T,B- 

T» THEN 6720 

6715T=LEN<As)!Fl»l 

6720 NEXT T 

6730 IF Fl»l THEN 10800 

6800 FOR T=l TO LEN<AS>:B*=MID«(A*,T,1>:AIA,B>=ASC(B$) 

6<>oo a=a-i:b=b-i:next t:goto7600 

7000 ' down diagonally 

7100 fi«o:a«rnd(ad:B"Rnd(bi):ifa-len(a«xithen 7100 

7200 if b+len(a*»b1 then 7100 

7300 i-0ifor t»0 to len(as>-1 

7305 1=1+1 

7310 B*=MID*(A«,I,l)iIF (A(A-T,B+T)=0 OR ASC(B*)=A(A- 

T,B+T»THEN7320 

7315 T*LEN(A»)!F1«1 

7320 NEXT 

7330 IF F1=1THEN10800 

7400 FOR T»l TO LEN<A*>:B»=MID*<As,T,l>iA<A,B>=ASC<B*) 

7500 A* A- 1 !B=B+ 1 iNEXT T 

7600 IF QOWN THEN PRINTEX*<RND<10»' I got it."SGOTO2800 ELS 
E PRINT'l got the last one!"!TB=<80-Al*2)/2SCMD"O",WN,D*<l> 
7700 ' PRINT OUT MATRIX 



7705 PRINT'Now th»t that job is finished, I need to know if you want 
me to save this puzzle to disk or write directly to the printer ."SPRIN 
T"If you want to write it to DISK then type "DISK' otherwise type % P 
RINTER'==> "iilNPUTCH* 

7710 IF CH«="DISK" THEN GOTO 17700 ELSE IF CHfO'PRINTER" T 
HEN GOTO7705 

LEN(NA*))/2):LPRINTTAB(Q)NA*:LPRINT!PRINT"PRINTING puzzle 

NOW" 

7800 FOR B=l TO B15FOR A=l TO Al!LPRINTTAB(TB)i 

7900 IF A(A,B)=0 THEN LPRINT CHR«<64+RND(26»iiGOTO8100 

8000 LPRINTCHR*(A(A,B))i 

8100 LPRINT" "JJNEXT AILPRINTILPRINTTABtTBKiNEXT B1GOSUB96 

20 

9000 ' GIVE SOLUTION 

9010 PRINT'Press <ENTER> to print the solution-JJLINEINPUTY* 

9100 PRINT!PRINT"NOW FOR THE SOLUTION. . ." 

9250 LPRINTNA»+"i SOLUTION"!LPRINT 

930C FOR B-l TO BliFOR A»l TO AllLPRINTTABITB)! 



9400 IF A(A,B>=0 THEN LPRINT". ";:GOTO9600 

9500 LPRINTCHR«(A(A,B)>! 

9600 LPRINT" "JiNEXT A:LPRINT:LPRINTTAB(TB)J!NEXT B1GOSUB96 

201GOTO9700 

9610 ' PRINT OUT THE WORDS — — — — 

9620 IF WR-0GOTO9630 

9622 LPRINT!LPRINT"Only"WR"of these words are NOT in the puzzle 

■* 

9624 IFWR=lLPRINT"Which word is it?"ELSELPRIKT"Which words ar 

i they?" 

9630 LFRDSTiLPRINTTABraWA-OlFOR QM TO WNSA-A+1 

9632 IF A=5 LPRINT:LPRINTTAB<5>J:A»1 

9640 LPRINT D»(Q)J!IF A<>4 LPRINTSTRING«(20-LEN(D»<Q»," ')', 

9650 NEXT QJLPRINTILPRINTJPRINTIPPJNTSRETURN 

9660 ' SHALL WE QUIT? 

9700 INPUT"ANOTHER COPY OF SAME PUZZLE'JOOt 

9710 IF LEFT*(00*,1)="Y"THEN 7700 ELSE END 

9800 EDIT SUBROUTINE 

9900 CLSiFOR Q=l TO WNiPRINT Q}"» "}D»(Q5.!NEXT Q 

10000 PRINT!INPUT"DO YOU WANT TO CHANGE ANY WORDS (Y OR 

N)"!Dt 

10100 Dl*«LEFT»tD*,l):iF D1*«"N" THEN RETURN 

10200 INPUT"WHICH WORD DO YOU WANT TO CHANGE'lQ 

10300 INPUT'TYFE THE NEW WORD "}D*(Q»GOTO9900 

10700 ' ATTEMPTED TRIES 
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10800 TY=TY+1 

10810 IF TY/160=INT(TY/160) THEN PRINT"I think this one's impos 

sible! Shall I try again? Y/N "}!INPUTY»iIFY»»"N"THENWR-WR+ 

1-GOTO2810ELSE2820 

10820 IF TY/20=INT(TY/20) THEN PRINT'It wouldn't fit."lGOTO300 



10825 GOTO3010 

11000 ' SORT FROM LONGEST TO SHORTEST WORD 

11010 FOR 1=1 TOWN 

1 1020 D»(I)=STR*(100+LEN(D«(I))M-D»(I) 

11030 NEXT 

11040 CMD'-O'.WN.-Dtd) 

11050 FOR 1=1 TOWN 

1 1060 D*(I>=RIGHT*(D*(I>,LEN(D»<I»-4> 

11070 NEXT 

11080 RETURN 

11090' 

17700 ' WRITE TO DISK 

17710 IFVAL(NA*)O0THENN»="Z"+NA«ELSEN»-NA* 
17712 IF LEN<N«)>8THENN«-L£FT*(N*,8> 
17715 X=INSTR<NS," »):IFX-0THENX»8 

17718 FZi=LEFT»(N*,X-lH"/FZL"5SLi*LEFTs<N«,X- 
l)+"/SOL"JFRINT"The puzzle will be called "FZt" and the solution wil 
1 be called "SL«V 

17719 PRINT"Is this satisfactory with you? "JJLINEINPUTYlsJIFYl 
•<>"N"THEN 17745 

17730 INPUT"Ok. What name would you like"!Ns 

17735 IF LEN(N»»8 THEN PRINT'Eight letters and/or numbers, plea 
se.":GOTO17730 

17736 X«INSTRQ«,*/">:IF XO0 THENPRINT"I wiU supply the extens 
ion.":GOTO17730 

17737 IF VAL(N*)O0 THEN PRINT'The name must begin with a lette 
r."!GOTO17730 

17740 GOT017715 

17745 OPEN"0",l,PZ» 

17750 Q-«80- 

LEN(NA*»/2)1FRINT#1 ,TAB(Q)NA»:PRINT#1 ,:PRINT"PRINTING FUZ 

ZLE NOW" 

17800 FOR B»l TO BUFOR A-l TO Ai:PRINT#l,TAB(TB){ 

17900 IF A(A,B)=»0 THEN PRINT*1, CHR»(64+RND(26»j:GOTO18100 

18000 PRINT#1,CHR»(A(A,B»J 

18100 PRINTtl," "JINEXT A!PRINT*1,JPRINT#1,TAB(TB»SNEXT BJG 

OSUB19620SCLOSE 

19000 ' GIVE SOLUTION 

19010 PRINT'Press <ENTER> to print the solution*JSUNEINPUTY» 

19100 PRINT:PRINT"NOW FOR THE SOLUTION. . .' 

19200 OPEN"0",l,SL* 

19250 PRINTtl, NA»+"! SOLUTION'lFRINTtl, 

19300 FOR B=l TO BliFOR A-l TO Al!PRINTtl,TAB<TB>} 

19400 IF A(A,B)=0 THEN PRINTtl,"."}'.GOTO19600 



19500 PRIHT*1,CHR*(A(A,B»[ 

19600 PRINT#1," "SMEXT A!PRINT*l,SPRINT»l,TAB<TB»iNEXT BtG 

OSUB19620tCLOSEJEND 

1 96 10 PRINT OUT THE WORDS 

19620 IF WR-0GOTO19630 

19622 PRraTThere were'WR'words NOT included in the punle.'IFRI 
NTtl," *!PRINT#l,"Only"WR"of these words are NOT in the puzzle."; 
19624 IFWR-lPRINTtl," Which word is it?"ELSEFRINT#l," Which w 
ords are they?" 

19630 frint#i,:frint#i i tab<5);sa*o:for q-i to wnsa-a+i 
19632 if a=5 frint#1,!print*1,tab<5);sa=1 

19640 FRINTtl, D*(Q>}:IF A04 PRINT* 1,STRING*(20- 

LEN(D*(Q)>," ")} 

19650 NEXT Q[FRINT#l,nroNT*l,:FRINTiPRINT:RETURN 

20001 DATA MUMAUGH,SANFRANCISO,CLEVELAND,MIAMI,FHILAD 
FXPHIA,NEWENGLAND,BUFFALO,ATLANTA,NEWORLEANS,KANSAS 
CITT ,HOUSTON,GREENBAY ,MINNESOTA,NY JETS,INDIANAPOLIS,ST 
LOUIS,DALLAS,WASHINGTON,DETROrT 

20002 DATA FITTSBURG,CINCINNAn,NYGIANTS,TAMFABAY,DENV 
ER,SANDIEGO,CmCAGO,LARAMS,SEATTLE,LARAIDERS,FOOTBALL 

20003 DATA IOWA,YALE,ARMY,NAVY,OHIOST,ARIZONA,OREGON,R 
IC£,BAYLOR,STANFORD,CORN£IX,BROWN,CLEMSON,TEXAS,KENTU 
CKY,FLORIDA,PURDUE,GEORGIA,COLLEGE,RUTGERS 



OVERSEAS EXPERIENCE 
by "Computer Nut" 
(Part 4 of a series) 

Once you have purchased the software and hardware you 
require, then comes the question of support. Support should never 
be more than a phone call away, but a phone call from another 
country can be an expensive business, even costing more than the 
software itself. 

I know software publishers get calls and letters from all 
sorts of people, with questions ranging from which way to orient 
the disk when mounting it in the drive, to why printer I using buffer 
J and filter K on operating system L (no, not necessarily 'elldos) 
using computer M drops the first character after a form feed 
spacing more than N lines. It can be a frustrating job answering all 
these questions, especially those which are already answered 
within the first few pages of the documentation. 

It should be important, both to yourself and to the publisher, 
that you fill in the registration card and send it off when you have 
bought some software. Some publishers apparently throw 
registration cards in the nearest bin, and you never hear another 
word from them, while others use the information for sending 
newsletters and notice of new updates to programs. I don't expect 
publishers to support users who do not bother to register their 
purchase, or users who have not obtained their copy of the program 
legitimately. 

I do, however, expect publishers to answer genuine and 
legitimate questions from registered users concerning their 
products, whether it be by phone or by letter. A software publisher 
who does not bother to answer my questions or even acknowledge 
the receipt of them cannot expect to sell me any more products, or 
expect me to recommend the product to others. Despite this, 
several of them seem to survive or even thrive. 

I also expect publishers to inform me when they upgrade their 
products, and provide me with the possibility of upgrading at a 
reasonable price, One of the larger software publishers, no longer 
in the TRS-80 business, provide an update possibility within the 
tame version number, but require a new purchase for major 
revisions of the product, I bought one of their products about 2 
months before a major update, and now I have to purchase the 
product again at full price if I want the new features. They 
probably won't notice it, but if I can avoid buying any of their 
products in future I will do so, Also, since their license agreement 
bound them to an upgrade policy and since they have not kept their 
part of the agreement, I no longer feel bound by my signature on the 
agreement. 

Another feature which I appreciate from publishers is a 
newsletter. This could be provided free of charge for a certain 
period after a software purchase, or at a nominal fee. Newsletters 
can provide useful information such as corrections to known bugs, 
restrictions, feedback from users, notice of upgrades, and useful 
information which was not included in the manual. The newsletter 
does not have to be a large, bound volume. One or two photocopied 
sheets would be sufficient for most products. 



For overseas users Tandy/Radio Shack has a lot to learn 
about user support. Apparently they assume that all users ha ve 
ready access to a local store where update notices and correction 
reports can be read at leisure. At the moment I dont even know if 
there is a Tandy store in the country where I live, let alone in the 
same area. I have registered several Tandy software products, but 
only after direct correspondence concerning serious bugs have I 
received the patches required. I have no idea what they use the 
registration cards for, since I have never received any mail from 
them except after writing and asking for information. 

I don't know if they expect me to write every few months 
asking if there are any updates to their products, or how they 
expect me to get the disks containing new releases. Until now I 
have been fortunate enough to have friends who traveled regularly 
to the U.S. who could get copies as and when required, but surely 
they can't expect all users to be in that situation. 

For the time being this will be the last installment in this 
series. If you have any comments or suggestions please send them 
to me care of Jack Decker. The address is on the back of this issue 
of Northern Bytes. 
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SZAP80/CMD 

A program to patch Model HI SUPERZAP to work with VTDE04 

by Tony Domigan 

If you own a Model 4 or 4P and use a program such as VTDE04 
to enable the 24x80 screen display while in th e Model IH mode, you 
may find this program useful. It patches the SUPER2AP program of 
NEWDOS/80 to permit operation in either the nor mal 64x 16 or in the 
80x24 mode. Although this patched version of SUPERZAP is 100H 
longer than the original, it is enti rely self-contained. To use it 
normally, you simply enter 'SUPERZA P as usual! but if you wish to 
use it in the 80x24 mode, you enter 'SUPERZAP 4'. 

The LDAHL, LDHLA and CONVRT routines have been borrowed 
(with permission) from VIDE04. Further instructions for 
installation and operation may be found in the source code comments 
below. 



SZAPBVASH - Model 4 
Mx24 nodi for Superxv 
For Northern Bytes ( the Public Donein 
fej Tons Doniojn 
P.O. Box 151, ThOMftoun, Victoria, 3174, AUSTRALIA. 
Md-ID 254-5121 



1. Fro* DOS 'LOAD SUPERZAP/WD' 

2. Fran DOS 'UM> SHPM/DD' 

3. Fro* OOS 'OUT SOPERZAP/M) 52MH,6rTFH,53MH' 

To execute - 
Enter 'SUPERZAP' for norwl SUPERZAP 
Enter 'SUPERZAP 4' for 8tx24 SUPERZAP 



code - placed in SUPERZAP buffer 
'4' and executes patch if so. 



SMI 
S3M7E 

3311 FE34 
33BCAW53 
S3MC3C554 
53W3EC3 
53M 32P656 
33K32DB5D 
5311 321561 
5314 3ZIE6I 
5317 32*362 
531A3ECD 
S31C 32DB54 
531F32F3SF 
S3ZZ 323561 
S3Z5 323E6I 
5328 325161 
538 3E5I 
53Z0 32FE6I 
5331 321 KE 
5333 87 



Mill 

III2I 

MI3I 

MMI 

•MSI 

MMI 

III7I 

lint [Instruction! to create • duel version (64x16 and 8tx24> 

11191 

lllll 

inn 

11121 

11131 

N14I 

M15I ', 

11161 [This patch has been tested with VEEW t vTD8lx21 

•1171 J 

M18I [Throw-anas 

M17I {(Seeks for 

||m » __ 

M2M ORC 53MH 

M2UCHEDX IB MH.) 

11221 CP '4' 

M23I JP Z.START 

11241 JP 54C5H 

11251 START U> A,K3H 

MZM U> (56D6HM 

M27I LD (5DDBH),A 

M2M ID (MttHM 

M29I LD («l£H),fl 

M3II LD (62NH),A 

M31I LD a.KOH 

M32I LD (50GH),A 

11331 LD (SFF3HM 

11341 LD (4I35H),A 

N35I LD (6T3EH),A 

1*341 LD (615W),A 

M37I LD A,M 

M3BI LD (6IFEH),A 

M39I LD (5E1MM 

MMI ADD A,A 



WKRZAP buff er 
JWERZAP 4<cr>' ? 
tMx24 pitch? 
[Yet, Execute Patch 
{Exec Superae 
{Place Jumps 



[Place Calls 

{MOdums 
[2xM Cohan Lines 
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S33132F7M 


urn 


LD 


(MF7HM 




6F75CDAE6F 


11221 


CALL 


LDHLA 


SLD «L)»A 


S337 212MF 


NCI 


LD 


ML,RTNE1 


{Place AJJiciws 


4F78AF 


•1231 


XOR 


A 




533AZ21FM 


•km 


LA 


(ttlFH) f HL 




6F79 CDEC5D 


•1211 


CALL 


3DECH 


imbscan 


533D212C6F 


HiU 


10 


H,RTNE2 




4f7CF5 


11251 


PUSH 


AF 




53U22FW 


MCI 


ID 


ar«>,HL 




4F7D79 


•1261 


LD 


A,C 


{Restore fcrtan dtar 


5W3 21336F 




LD 


HL,RTNE3 




6F7ECDAE6F 


•1271 


CALL 


LDHLA 


{LD (HL),A 


5316 22IC62 


W7I 


ID 


U2fcH>,HL 




#81 Fl 


11281 


POP 


AF 




5319 213B6F 


1MB! 


LD 


H.,RTNE1 




6FB2 CCEC5D 


I1Z9» 


CALL 


Z,3DECH 




531C2Z166I 


Hffl 


LD 


(MUH),HL 




6FB5 2BEB 


•1311 


Jt 


ZtPLAcrr 


{NbKn 


53T213F6F 


M5II 


LD 


HL,RTNE5 




6F87E1 


•1311 


POP 


HL 




5352 223661 


N51I 


LD 


(6tt6H>,HL 




6F88C1 


11321 


POP 


BC 




5335 211A6F 


N52I 


LD 


HL.RTHE* 




6F89D1 


11331 


POP 


DE 




5358 223F6I 


M53I 


LD 


(6»3FH),HL 




4FBAC3EB5D 


11311 


J> 


SDEBH 




535B21526F 


IHJ1 

•Knf 


LD 


HL.RTNE7 




4FBDCDA76F 


11351 RTNE8 


CALL 


LDAHL 


{LD A,(HL) 


535 22X30 


H35I 


LD 


(3DSCH),H. 




6F9I FE2I 


11361 


CP 


m 




5361 218D6F 


N56I 


IS 


HL,RTNE8 




6F9ZC9 


11371 


RET 






53M 223161 


N57I 


IS 


(6131H),H 




6F93X11 


•13WRTK9 


LD 


A,1W 


{Select vid t** 1 


5367 2M36F 


MSB* 


ID 


H,RTNE9 




6F75D3M 


•1391 


OUT 


(8W),A 




53M22DC56 


N99I 


ID 


(50CH>,ML 




6F97CD1162 


•mi 


CALL 


621W 




536DZ1986F 


M6M 


LD 


HL,RTNEI 




6F9AC9 


•1111 


RET 






5371 220736 


Mill 


ID 


(5flBH),H 




6F9B CD6C5D 


11121 RTNEI 


CALL 


3DBCH 


{Hod/Find Rtne 


3373 211W) 


N62I 


LD 


HL,3DHH 




6F9EF5 


•1131 


PUSH 


AF 




5374 2ZB44I 


H63I 


LD 


(6IB6H>,HL 




6F9F3E11 


•mi 


LD 


A,1W 


{Select vid nv 1 


537V21M3E 




LD 


HL,3E8tH 




6FA1 D3M 


•1151 


OUT 


(8W),A 




537C22DB6I 


M65I 


ID 


(6UH),HL 




6FA3F1 


11161 


POP 


AF 




537F 21CI3F 


H66I 


LD 


HL,3FC»H 




6FMC3K56 


•1171 


JP 


56DEH 




5362 22E86I 


H67I 


LD 


(••EEtOtHL 






VIWV t 








3385Z161M 


N6SI 


LD 


HL.KBIH 






11191 ! 


The following Routine ws Utm frOH 


5386 27161 


••671 


ID 


(6«FlH) t HL 






Hsu ; 


VEE01 &i Jeck. Decker (avail fro* TAS) 


53BB C3C551 


II7II EXEC 


•F 


5C5H 


{Stert SUPERZAP 




■1D1I »' 

•1521 ; 








6F2I 


H/II • ' 

M72I 


one 


6F2IH 


{Patch Are* 


6FA7E5 


•1531 LDAHL 


PUSH 


HL 


{LD A,(HL) rtne 


6F2IE1 


H73i(mei 


POP 


HL 




6FA8C0B76F 


11511 


CALL 


COW 




6F21 D5 


M71I 


PUSH 


DE 




6FAB7E 


• 1551 


LD 


A.(HL) 




6F22 llllll 


11751 


ID 


DE.16 


}*6+« Colons 


6FACE1 


•1561 


POP 


VL 




6F25 1? 


M76I 


MO 


HL,DE 


;Nw Pointer 


6FAD C9 


11571 


RET 






6F26 n 


11771 


a 


af,af' 




6FAEE5 


I15E4 LDHLA 


PUSH 


HL 


{LD (HL>,A rtne 


6F27D1 


11781 


POP 


DE 




6FAFF5 


(1591 


PUSH 


AF 




6F2B 3D 


•1791 


DEC 


A 




6F8ICDB7&F 


11611 


CALL 


COW 




6F29C3Z16I 


II8II 


■P 


6I21H 




6FS3F1 


11611 


PO? 


AF 




6F2C D5 


MBURTHE2 


PUSH 


DE 




6FEH 77 


11621 


LD 


(HL),A 




6F2D U29II 


•1821 


LD 


DE,((28H 


{Offset to AKii Side 


6FB5E1 


11631 


POP 


HL 




6F3I 1? 


11831 


WD 


rL.CE 




6FB6C9 


11611 


RET 






6F31 Dl 


hsii 


POP 


DE 




6FB7 7C 


•165» COW 


LD 


A,H 


{Screen Ptr Comersion 


6F32C9 


1*851 


RET 






6FB8E6I3 


11661 


AND 


(3H 




6F33CDAE6F 


••861 RTHE3 


CM! 


LDHLA 


ILD (HL),A 


6FBAF6X 


•1671 


OR 


3CH 




6F34 23 


IK7I 


DC 


HL 




6FKCB71 


11681 


en 


6,H 


{P«9el 


6F37 C9 


••881 


RET 






6FBE67 


•1691 


LD 


H,A 




6F3BCD336F 


MB9I RTNEI 


CALL 


RTNE3 


{LD (HL),A 


6FBF3ACE6F 


(17(1 


LD 


A, (FLAG) 




6F3BE3 


•19(1 


EX 


(SP),HL 




6FC2 CBFF 


•1711 


SET 


7,A 


?P»9i2 


6FXC31B6I 


11911 


J> 


6I18H 




6FM2II2 


•1721 


JR 


MZ.LOHER 




6F3FF5 


W92I RTIE5 


PUSH 


AF 




6FC6E67F 


11731 


AW 


7FH 




6F« 7G 


11931 


LD 


A,E 




6FC8 32CE6F 


11711 LOHER 


LD 


(FLAG), A 


{Select Page 


6F11 CD336F 


11941 


CALL 


RTNE3 


{LD (HL),A 


6FC8D3M 


11751 


OUT 


(8*), A 




6FH7A 


••951 


LD 


A,D 




6FCDC9 


11761 


RET 






6F15CDAE6F 


11961 


CALL 


LDHLA 


;ld (Hl>,a 


6FCEI5 


I177IFLAG 


DEFB 


(5H 


{Video Ibsk 


6F*F1 


11971 


POP 


AF 




•III 


11781 


END 






6F19C9 


M98I 


RET 






••(•I TOTAL ERRORS 








6F1A3EH 


M99I RTHE6 


ID 


A,HH 


{Page 1 of Vidro 












6F1CD381 


•mi 


OUT 


(8«>,A 


{Select P»9e 1 


CHECK 5311 


COW 6FB7 EXEC 5383 


FLAG *TCE LDAHL 6FA7 


6F* mix 


•mi 


LD 


DE,XIW 


{To? Of MW 


LDHLA 6FAE 


LOHER 4FC8 Pl/OT &F72 


RTNEI 4F9B RTNEI 6F2I 


6F51 C9 


I1J2I 


RET 






RTNE2 6F2C 


RTNE3 6F33 RTHE1 6F38 


RTNE5 4F3F RTNEi 4F1A 


6F32D5 


lis 


PUSH 

PUSH 
ID 


DE 

EC 
DErSCtBH 




RTHE7 6F52 


RTNEB 6F8D RTNE9 6F93 


START 53(9 


6F53 C5 
6F54 11W3C 












6F57 1? 
6F58E5 


•1161 
IU7I 


MO 
PUSH 


H,DE 
HL 


{Hod/Find Poai 




Information provided^yvern Hester 


6F59 11IIX 


11181 


LD 


DE.3CIIH 


{Start of Screen 












6F3C ED52 


11(91 


SBC 


HL,DE 


{Disylacment 


A new version 


of MULTIDOS 


(version 1.7) has recently 


6F5E XII 


lllll 


LD 


A,61 


{Ngntil Colons 


appeared on the scene 


!. Since many NORTHERN BYTES readers use 


6f 61 CD591C 


urn 


CALL 


«59H 


{Celc Nwtoer of row 


the previous version of MULTIDOS (version 1.6) t I asked MtTLTIDOS 


6F63 F5 


11121 


PUSH 


AF 


{save reminder 


author Vern Hester 


to provide our 


readers with a list of the 


6F61 3E51 


•1131 


LD 


A,8I 


;nw coIuwk 


differences between the two 


versions. 


Listed here are the changes 


6F66CD371C 


urn 


CALL 


«37H 


INw Displaumnt 


that were made to version 1.6 to come up with the new version 1.7! 


6F69F1 


11151 


POP 


AF 


{Restore Old Row 












6F6A5F 


•1161 


LD 


E,A 


JDE-SUrt+fieMinder 


1, Provisions for 8" drive support and HARD disk support, 


6F6B 16X 


11171 


U> 


D,3CH 




also has been modified to handle floppies in two headed drives as 


6F6D 19 


•1181 


MO 


HL.DE 


{8tx21 Screen Pes 


one or two volumes (most other DOSes handle double-sided drives 


6F6ECDA76F 


' 11191 


CM! 


LDAHL 


fLDA,(HL) 


as a singl 


e volume) ] 


MULTIDOS 1.7 is now compatible with this 


6F71* 


11211 


LD 


C,A 


{Save tcreen chir 


format). 










6F72 3AF.15D 


•1211 PLACIT 


ID 


A,(5DE1H) 


{Store tod/Find Cher 


2. Drives can be configured independently logical and physical. 
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3. Initialization code reads hardware docks. 

4. BUILD will overwrite as well as append to a "DO" file. 

5. Wildcard in DIR and CAT/CMD. 

6. Margin added to FORMS. 

7. Print directly from DOS command mode. 

8. ROUTE an output device to a disk file. 

9. Five additional single letter commands in BASIC. 

10. BASIC program RAM resident unpacker. 

11. Renumber a block of text to a new location. 

12. Send control codes to printer from Minidos (MOD I/III). 

13. ZAP enhanced to copy sectors, verify sectors, and format a 

single track. 

14. VFU enhanced to permit retries on a function error. (I*. 

Write protected diskette) 

15. CAT enhanced to indicate granule allocation. (File map) 

16. DEBUG enhanced to move one byte at a time and full arrow 
movement for modification. 

17. DDT/CMD enhanced to slow down a MODEL 4 dock when 
running in the MODEL III mode. 

18. Forms filter (MOD I/III) to trap unwanted codes. 

19. PACKER modified to absorb blank lines, and not pack lines 
with open quotes. 

20. Enhanced to read double sided NEWDOS/80 diskettes. 

21. FORMAT/CMD and BACKUP/CMD made more user friendly 
by informing user of write protected media instead of exiting. 

22. VFU/CMD modified to remove a partial file when disk 

space is full* 

23. Minidos enhanced to turn DEBUG on. 

Now here are some spedfics of the DOS enhancements! 



j. a) Resident module and support overlays have been 

modified to handle double-sided diskettes as one or two volume. 

b) Drive control table (DCT) has been expanded to ease the 
incorporation of Hard disk interface, and 8" drive interface. 

c) Tf make room for the DCT, TORMS' has been removed 
and placed in the command file PRT/CMD. The SPOOLER and library 
command FORMS require PRT/CMD to be loaded. (MOD I/III) 

d) The initialization code has been modified to read 
standard hardware docks (TRSWATCH, NEWCLOCK, etc), and load 
this information into the software clock. No further reading is 
performed by MULTIDOS after initialization. 

2. System files have been renamed to their primary function 
and extensions have been changed to DOL (Dos OverLay). BASIC 
overlays have the extensions changed to BOL (Basic OverLay) 

Version 1.6 Version 1.7 

DIR/SYS DIR/SYS 

DOS/SYS SYSRES/SYS 

DOS0/SYS Allocate/DOL 

DOS 1 /SYS Command/DOL 

DOS2/SYS Open/DOL 

DOS3/SYS Close/DOL 

DOS4/SYS Error/DOL 

DOS5/SYS Debug/DOL 

DOS6/SYS Library 1 /EXT 

DOS7/SYS Minidos/DOL 

DOS8/SYS Library2/EXT 
DOS9/SYS HELP/DOL or HELP/CMD 

Library Commands (Functional changes) 
The following DOS library commands have NOT been changed! 
Append, Attrib, Auto, Blink, Boot, Clear, Clock, Cls, Date, Ddam 
(command exists on MODEL I only), Dead, Device, Do, Dump, Free, 
Kill, Lib, Link, Load, Frot, Rename, Restor, Setcom (command exists 
on MODEL III only), Time, Topmem, Verify. 

The following DOS library commands have been ELIMINATED! 
Break, Hash, Help (Now HELP/CMD), 

The following DOS library commands have been CHANGED! 

Build - Changed to overwrite file unless the A parameter is added. 

BUILD filespec (A) 
Clrdsk - Changed to place 6DB6 pattern on double density sectors 

or E5E5 pattern on single density sectors. 
Config - Changed to write only if "X" parameter spedfied. 

CONFIGC CC!]dl (m,ST=st,SI'=si,V=v,wp/we,P=p,n)KENTER> 
d = logical drive number, to 7 

m = 5 for 5 1/4" floppy, 8 for 8" floppy, or H for hard disk, 
st = 6, 12, 20, 30, (track to track step rate - 
MODEL I 30 = 40 ms.) 



si * 1, or 2 for floppies (number of sides) 
v - 1, or 2 for floppies (volume) 
wp " write protect 
we « write enable 
p - physical drive, to 7 
n * nil (logical drive not in system) 
Debug - Automatic modes E, N & U are cancelled via 

<SHIFTXSFACE> vs <SPACE> only. Modification mode 
enhanced to use all four arrow keys. Page display can now be 
on exact byte with 8 movements using the shift key and all 
four arrow keys. 
Dir - Added wild card (modified CP/M format). 
? ■ character position can be anything. 
• > balance of "field" can be anything. 
DIR ?K??????/« same as DIR ?K*/« 

this will display files with "K" in second position of 
filename "field" and anything in extension "field". 
DIR */CMD display files which end with "/CMD". 
DIR •/ display files without an extension. 
DIR ???/* display files with a max of 3 characters in 
filename. 
Forms - M parameter added for left margin, S parameter dropped. 

(Requires PRT/CMD loaded - MOD I/III) 
Keybrd - reduced to only effect whether case will be in upper or 
upper /lower case during power-up, and cursor chararter. (MOD 
I/III) 
List - Modified to convert graphic character to periods unless the G 
parameter is added. 

LIST Pirture (GXENTER> 
D parameter added to perform a sertor dump. 
LIST DBl/SYS (D)<ENTER> 

Patch - T option added. 

Patch file (Rec=nn) T= tl.t2.t3>bl.b2.b3<ENTER> 
T=target. tl t2 t3 * target bytes which MUST be found in 
order to change to bl b2 b3 

Patch DOS/SYS <REC=9) T= 32;194}68>32J194}64 
Print - Modified to send string to printer if one double quote is 
immediately after the "T" in PRINT 

PRINT'TEST lprints TEST 

PRINT" TEST" lprints TEST" 

PRINT""TEST" lprints "TEST" 

Route - Enhanced route in output device to a disk file. 

Route PR to SCREEN/TXT 
Skip - Modified to skip on logical drive zero. 

The following DOS library commands have been ADDED! 

Reset - Resets devices and TOPMEM to the power-up/re-boot 

status. 
Screen - Dump screen contents to printer. 

SUPERBA5IC 

1. BASIC changes include the implementation of addition 
single letter commands! A for AUTO, L" for LOAD, K" for KILL, S" 
for SAVE, and I for AUTO (current line+1), 1 (if the current line is 
tOO, KENTER> performs an AUTO 601,1 but I300<ENT£R> does 
not perform an AUTO 301,1. 

2. a) CMD "O" to open an additional file buffer, has been 

eliminated 

b) CMD'U" to remove remarks has been changed to 

CMD " X c) CMD'X" to transfer the Disk BASIC program to LEVEL 
II BASIC has been changed to CMD"W" h ,„ u « 

d) CMD'U" now performs an Unpack. The unpacker breaks 
each line down to as many single statement lines as possible, 
inserts spaces around each key word, and renumbers the program 10, 

' 3. RENUM/SYS renamed RENUM/BOL will move a block of 
lines to another location provided the new area has room for the 

new increment. . ... ji- _ 

Syntax! new line, increment, start line, end line 
Note! Previous RENUM/SYS would not renumber the end line. 
4. BASIC system files! 

Version 1.6 Version 1.7 

CREF/SYS CREF/BOL 

EDIT/SYS EDIT/BOL 

ERROR/SYS ERROR/BOL 

PACK/SYS PACK/BOL was in MOD D3 as a file. 
RENUM/SYS RENUM/BOL 

T/NPACK/BOL 
UTD-ZBOL 
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4. UTIL/BOL has been created to keep all of BASIC extended 
functions in "/BOL" files. This removed the SORT function, CMD"C", 
M direct command and N direct command from DOS7/STSJ removed 
the direct command F, and CMD"U" (now CMD"X") from DOS4/SYS! 
and removed the CMD"UUUUU" initialization routine from 
DOSO/SYS. 



'" by Gil Spencer VK2JK 

I never think in octal. It't hard enough to work in binary, hex, 
and decimal. It always seemed to me that the default for the '&' 
function should be hex, not octal. I finally dug out the source code 
(from Apparat's Disk BASIC) which I found in SYS20/SYS. My 
rewrite fits within the required extra space. Although a quantity of 
bytes are changed, this is because the code is "re-arranged" more 
than because it is "re-written". 

First, here is the Disk BASIC (fc) routine found in Apparat's 
NEWDOS/80 version 2.0 - specifically SYS20/SYS, addresses 
54C5H-5503H. If you are using SUPERZAP, address 54C5H is found 
at FRS 2, byte D1H and address 5503H is at FRS 3, byte 13H. Note 
that the four bytes at FRS 3, bytes 06H-09H (which are 01 00 FA 54) 
are loader codes and must NOT be changed, 



54C5 


00100 




ORG 


54C5H 


54C5 07 


00110 




RST 


10H 


54C6 4F 


00120 




LD 


C,A 


54C7 110000 


00130 




LD 


DE,00OOH 


54CA 79 


00140 


Q54CAH 


LD 


A,C 


S4CB FE48 


00150 




CP 


48H 


54CD 2022 


00160 




JR 


NZ,Q54F1H 


54CF 07 


00170 




RST 


10H 


54D0 EB 


00180 




EX 


DE.HL 


54D1 D630 


00190 




SUB 


30H 


S4D3 FE0A 


00200 




CP 


0AH 


54D5 3808 


00210 




JR 


C054DFH 


54D7 D611 


00220 




SUB 


11H 


54D9 FE06 


00230 




CP 


06H 


54DB 3022 


00210 




JR 


NCQ54FFH 


54DD C60A 


00250 




ADD 


A,0AH 


54DF 29 


00260 


054DFH 


ADD 


HL,HL 


54EQ 3807 


00270 




JR 


CQ54E9H 


54E2 29 


002BO 


Q54E2H 


ADD 


HL,HL 


54E3 3804 


00290 




JR 


CQ54E9H 


54E5 29 


00300 




ADD 


HL,HL 


54E6 3801 


00310 




JR 


CQ54E9H 


54E8 29 


00320 




ADD 


HL,HL 


54E9 DAB207 


00330 


Q34E9H 


JP 


C07B2H 


54EC 85 


00340 




ADD 


A,L 


54ED 6F 


00350 




LD 


L,A 


54EE EB 


00360 




EX 


DE.HL 


54EF 1BD9 


00370 




JR 


Q54CAH 


54F1 0E4F 


00380 


Q54F1H 


LD 


C,4FH 


54F3 B9 


00390 




CP 


C 


54F4 2801 


00400 




JR 


Z,054F7H 


54F6 2B 


00410 




DEC 


HL 


54F7 07 


00420 


Q54F7H 


RST 


10H 


54FB EB 


00430 




EX 


DE,HL 


54F9 D630 


00440 




SUB 


30H 


54FB FE08 


00450 




CP 


08H 


54FD 38E3 


00460 




JR 


CQ54E2H 


54FF CD9A0A 


00470 


Q54FFH 


CALL 


0A9AH 


5502 EB 


004B0 




EX 


DE.HL 


5503 C9 


00490 




RET 




This is the 


rewrite of the Disk BASIC ampersand (St) rou 



Now the octal argument must be specified by 'StO'. Hex argument 
may be specified by 'SH'. No suffix (i.e. '&') now defaults to hex 
rather than octal. 

54C5H 

10H 

C,A 

DE.O000H 

A,C 

48H 

N2,Q54F1H 

10H 

DE,HL 

30H 

0AH 

CQ54DFH 

11H 



54C5 




00100 


ORG 


54C5 


D7 


00110 


RST 


54C6 


4F 


00120 


LD 


54C7 


110000 


00130 


LD 


54CA 


79 


00140 054CAH 


LD 


54CB 


FE48 


00150 


CP 


54CD 


2022 


00160 


JR 


54CF 


D7 


00170 


RST 


54D0 


EB 


00180 


EX 


54D1 


D630 


00190 


SUB 


54D3 


FE0A 


00200 


CP 


54D5 


3808 


00210 


JR 


54D7 


D611 


00220 


SUB 



54D9 


FE06 


00230 




CP 


06H 


54DB 


3022 


00240 




JR 


NCQ54FFH 


54DD 


C60A 


00250 




ADD 


A,0AH 


54DF 


29 


00260 


Q54DFH 


ADD 


HL,HL 


54E0 


3807 


00270 




JR 


CQ54E9H 


54E2 


29 


00280 


QS4E2H 


ADD 


HL,HL 


54E3 


3804 


00290 




JR 


CQ54E9H 


54E5 


29 


00300 




ADD 


HL,HL 


54E6 


3801 


00310 




JR 


CQ54E9H 


54E8 


29 


00320 




ADD 


HL,HL 


54E9 


DAB207 


00330 


Q54E9H 


JP 


C07B2H 


54EC 


85 


00340 




ADD 


A,L 


54ED 


6F 


00350 




LD 


L,A 


54EE 


EB 


00360 




EX 


DE,HL 


54EF 


18D9 


00370 




JR 


Q54CAH 


54F1 


0E4F 


00380 


Q54F1H 


LD 


C4FH 


54F3 


B9 


00390 




CP 


C 


54F4 


2801 


00400 




JR 


Z,054F7H 


54F6 


2B 


00410 




DEC 


HL 


54F7 


07 


00420 


054F7H 


RST 


10H 


54F8 


EB 


00430 




EX 


DE.HL 


54F9 


D630 


00440 




SUB 


30H 


54FB 


FE08 


00450 




CP 


08H 


54FD 


38E3 


00460 




JR 


CQ54E2H 


54FF 


CD9A0A 


00470 


Q54FFH 


CALL 


0A9AH 


5502 


EB 


00480 




EX 


DE,HL 


5503 


C9 


00490 




RET 





22 



CREATE A SELF-BOOTING DISK USING LDOS 
by Gary Bryce 

[Reprinted from SYDTRUG NEWS, P.O. Box 297, Padstow, New 
South Wales 2211, AUSTRALIA! 

This should be the last word on this subject. Back in the 
August issue of the CSYDTRUG3 newsletter I detailed a method of 
creating a self booting disk using NEWDOS/80 on the Model I (Leon 
Yates fallowed this with the details for the Model in in December) 
CSee NORTHERN BYTES Volume 5, Number 4, page 11} Volume 6, 
Number 1, page 3, plus THE EXTERMINATOR column in Volume 5, 
Number 6, page 2, and THE EXTERMINATOR in this issue for these 
past articles!, there was quite a bit of zapping and general playing 
around to do it, but it did work, One evening recently I was 
pondering on how to do the same thing with an LDOS disk when I 
realised how much simpler it would be using an LDOS formatted 
diskette. 

Why is it simpler? Well what we are doing is substituting the 
file to load for SYSO and using the normal SYSO/SYS loader in 
BOOT/SYS to load and execute our file. NEWDOS doesn't look at 
the directory to load SYSO/SYS, it depends on the Track and Sector 
numbers at the start of SYSO being in the BOOT/SYS file, after 
loading SYSO/SYS it performs a check to ensure a correct load. 
Therefore I had to ensure that the correct Track & Sector numbers 
for the file are correct and also bypass the check. LDOS accesses 
the directory to get the position of SYSO/SYS on the disk, so if we 
put the file in the directory slot normally used by SYSO/SYS the 
Boot loader will load our file and execute it! How do we do it? As I 
said, it couldn't be simpler - copy the file to SYSO/SYS! 

The procedure is very easy, just follow the steps listed below 
and you can't go wrong, and it works for the Model I and Model XXXt 

1 . Format a diskette using LDOS. 

2. Create the SYSO/SYS file on the diskette using the 
following command. 

BACKUP SYSe/SYSffl 5d 

where d is the destination drive number. 

3. Copy the required file to the diskette? 

COPY FILENAME/CMDSs SYS0/SYS.RSM.TMT!d 

where s is the source drive and d is the destination drive. 

4. Optionally you may then rename SYSO/SYS back to the 
original filename by! 

RENAME SYS0/SYS.RS0LT0FF5d TO FILENAME/CMD 

And there you have it, no zapping or calcs required. Why do it 
at all? Most of us use a directory indexing program of some 
description! conventional self booting diskettes don't have a 
directory and therefore can't be read and must be added manually. 
Using this method the diskette has a conventional directory and can 
be read by the indexing program. 



MODULA-2! 



NOW MAILABLE 

The Alternate Source Information Outlet is now the North 
American distributor for the Hochstrasser Computing Modula- 
2 System for Z80 CP/M! if you thought that Modula-2 wasn't 
possible on an 8-bit machine, keep reading The programmer 
<oais were to create a full Modula-2 compiler for an 8-blt 
machine that generates a reasonably small amount of code in a 
reasonably small amount of time leading to reasonably short 
execution times. These goals are now realities! 

WHAT MAKES MODULA-2 SO GREAT? 

In several PASCAL dialects, there exists possibilities to split 
programs apart into different "modules". These modules are 
compiled as if they were complete programs Just lacking the 
main program. You can freely use procedures declared in one 
such "module" In others. All you have to do is to declare bow 
this procedure looks and indicate that it is "external ". It is a tool 
that is indispensable for the successful mastery of large 
programming projects. It is especially helpful for projects that 
are carried out by groups of programmers. In programmer 
terms. Modula-2 takes the concept of "local" and "global" 
variables to new dimensions. The programmer has complete 
control. 

THE DOCUMENTATION 

Manual Release 3-28-85/Pwh - almost 300 pages - is very 
complete and well indexed (nine pages of carefully thought out 
subjects and subdivisions). It is presumed that the user has a 
some familiarity with PASCAL Please note that the current 
documentation has been updated since an older version of this 
product was critiqued in an issue of BYTE. For persons who get 
squeemish at the thought of spending money, we have 
constructed a "Modula Sales Kit" which includes the complete 
Table of Contents and other information from the manual. One 
of these is free upon request. 

POWER (S WHAT YOU GET 

The Modula-2 Compiler Package for Z80 CP/M includes a 
linker, a reference lister, a converter, a system configuration 
package, two libraries (detailed below) and three test 
programs. Complete step-by-step instructions are included for 
assembling the test programs. The System generates fast. 
ROMable. reentrant Z80 native code. Assembly language 
integration is supported, as well as assembly language 
compiler output. 



SOFTWARE SUPPORT 

Included with this version of Modula-2 is a complete set of 
source code library routines Including TERMINAL SEQIO. 
TEXTS. REALTEXTS. INOUT. REALINOUT. MATHLIB. 
SYSTEM. ASCII. CHAINING. CMOLIN. CONTROLS. 
STRINGS. LONGSETS. CONVERSIONS. CONUERTREAL 
FILENAMES. FILESYS. FILES. MOVES and OPSYS. The new 
documentation includes a START-UP GUIDE. 
INTRODUCTION TO MODULA-2. IMPLEMENTATION GUIDE. 
ADVANCED PROGRAMMING GUIDE and APPENDICES that 
detail error messages, object code format considerations, 
reserved words and symbols, the ASCII character set. 
language definition, a bibliography and 9 pages of index. A 
special section is devoted to Programming With Better 
Efficiency. The documentation Is filled with small sample 
Modula-2 programs. 

SYSTEM CONSIDERATIONS 

Please note that this is a large system. The compiler Itself uses 
about 170k of disk space. It is desirable to have at least two 
drives holding 350 Kilobytes of disk storage each to work 
comfortably with the system. A single double-sided eighty 
(holding 700k) would be ideal. Unless otherwise requested, the 
Modula-2 Compiler for Z80 CP/M will be shipped using the 
Montezuma Micro 40-track. single-side format. The compiler 
is only tested under CP/M 2.2. Eight inch CP/M formats are also 
available upon request. 

FOR NEW MODULA-2 PROGRAMMERS 

Folks near the mid-Michigan area: This summer we are 
Planning at feast one seminar detailing the use of Modula-2. We 
have a special package price on the seminar, which includes the 
price of the compiler and complete documentation, along with 
PERSONAL INSTRUCTION and enough diskettes to make a 
backup of your software and for working/scratch purposes. 
The price of the Modula-2 Compiler Package for CP/M. 
including the seminar and all mentioned above Is $200. This 
price requires that you bring YOUR OWN CP/M computer. The 
price for the seminar with OUR computer is S300. The price 
for the software without the seminar is $165. The seminar 
without the software (you Provide your own Modula-2 compiler 
and computer) is $59.95 if you make your reservations by 
August 1st, $99.95 after that date. The 8-hour seminar will 
take Place in Lansing on Saturday. August I Oth. and include 
lunch. Advanced seminars are Planned and will depend on the 
success of this seminar, naturally. 



WHERE TO GET IT! 



M.TERNKT 

SOURCE 




TASI/O 

704 N. Pennsylvania 

Lansing. Ml 48906 

(517)482-8270 



CM9000CXX)000O0000P000OOOOO00OOO0OO00OOOOOOO0OOO00O< 



>ooooooooooooooooo 

NORTHERN BYTEsT^ 



Subscription information 

Northern Bytes is edited by Jack Decker and published on 
an irregular basis by The Alternate Source information 
Outlet. Back issues are available starting with Volume 5. 
Number I . Issues Prior to that are not available. Some of 
the most valuable articles from earlier issues may be 
reprinted in future Issues of Northern Bytes. Currently 
there are eight back issues available for Volume 5. as well 
as all issues from Volume 6. All back issues are $2 each. 

It is very easy to be Placed on the Northern Bytes 
REGULAR list. Simply place your address. Visa or 
MasterCard number and expiration date on file with us. 
We will start with the issue you request. We do not bill you 
for ANY ISSUE until that Issue has been mailed. This way. 
we can continue to offer you top quality Information with 
absolutely no risk to you. There's no question of what to 



do about unfulfilled issues if we decide to quit publishing. 
Unless otherwise requested, we presume your 
subscription will extend through the month of your 
expiration date. 

Don't have a charge card, huh? We understand me myriad 
of reasons for not having them and we feel that a "To-Be- 
Invoiced" policy could help increase the demand for 
Northern Bytes. If you'll do it for us. we'll do It for you. 
Would you like to be Placed on a regular list TO BE 
BILLED for each issue? You could then send a check for 
the issues as they are mailed. If you didn't send a check, 
we would presume that your interest has died and 
discontinue your subscription. The only requirement for 
getting onto the list Is to pay for the first issue up front: 
the next will be mailed automatically, if you request. You 
are insured that you will receive top of the line TRS-80 
information as it is released. Ask to be Placed on the NO 
RISK "To-Be-lnvolced Northern Bytes List". 
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